ich lese folgendermassen aus einer
xml-datei
Delphi-Quellcode:
procedure XXX.LoadFromHRXMLFile(FileName: String; AOwner: TComponent);
var
FXMLDocument : TXMLDocument;
lNode : IXMLNode;
lNodeList : IXMLNodeList;
i : integer;
begin
FXMLDocument := TXMLDocument.Create(AOwner);
FXMLDocument.LoadFromFile(FileName);
FXMLDocument.Active := True;
//Root Element setzen
lNode := FXMLDocument.DocumentElement;
lNodeList := lNode.ChildNodes;
//alle Nodes durchgehen
for i := 0 to lNodeList.Count -1 do
begin
showmessage(lNodeList.Nodes[i].NodeName+'='+lNodeList.Nodes[i].text);
end;
und das funzt wunderbar
da es sich um
xml-dateien handelt, ist das speichern ist im prinzip ganz easy. du kannst das wie bei normalen textfiles machen
Delphi-Quellcode:
AssignFile(f, FileName);
{$I-}
rewrite(f);
{$I+}
if IOResult = 0
then
begin
writeln(f, '
<?xml version="1.0" encoding="UTF-8"?>');
writeln(f, '
<ROOTTAG>');
writeln(f, '
<SUBTAG>'+FValue+'
</SUBTAG>');
...
die einzelnen tags kannst du natuerlich baummaessig aus deinem zuvor gelesenen IXMLNode ermitteln und schreiben
ich hoffe das hilft dir weiter