XML speichern ?

[Sidorion]

Lesen:

Delphi-Quellcode:

Function TCharList.LoadFromFile(_sFileName: String): Boolean;
Var
  oFile: TXMLDocument;
  oNode: IXMLNode;
Begin
  try
    oFile:=TXMLDocument.Create(Application.MainForm);
    oFile.Active:=True;
    oFile.LoadFromFile(_sFileName);
    oNode:=oFile.ChildNodes[NODE_CHARLIST];
    Result:=Read(oNode);
    oFile.Free;
  except
    Result:=False;
  End;
End;

Schreiben:

Delphi-Quellcode:

function TCharList.SaveToFile(_sFileName: String): Boolean;
Var
  oFile: TXMLDocument;
  oNode: IXMLNode;
begin
  try
    oFile:=TXMLDocument.Create(Application.Mainform);
    oFile.Active:=True;
    oNode:=oFile.AddChild(NODE_CHARLIST);
    Result:=Write(oNode);
    If Result
    Then oFile.SaveToFile(_sFileName);
    FreeAndNil(oFile);
  except
    Result:=False;
  end;
End;

oNode ist dann jeweils das Root-Element und du kannst von hier dann
- beim Lesen Dich durch die ChildNodes via z.B.: oChild:=oNode.ChildNodes.FindNode('sample') hangeln
- beim Schreiben via z.B.: oChild:=oNode.AddChild('sample') neue Kindknoten erzeugen