program Project1;
uses
Classes, DOM, XMLWrite;
var
Doc: TXMLDocument;
RootNode, ParentNode : TDOMNode;
Lst : TStringList;
begin
Lst:=TStringList.Create;
try
Lst.AddPair('att','xyz');
try
Doc:=TXMLDocument.Create;
RootNode:=Doc.CreateElement('root');
Doc.Appendchild(RootNode);
RootNode:= Doc.DocumentElement;
ParentNode := Doc.CreateElement('parent');
TDOMElement(ParentNode).SetAttribute(Lst.Names[0], Lst.Values[0]); // <-- error
//TDOMElement(ParentNode).SetAttribute('att','xyz'); //ok
RootNode.Appendchild(ParentNode);
finally
Doc.Free;
end;
finally
Lst.Free;
end;
end.