XML Einstieg - wie? einfach? Stringgrid ins XML und zurück!

[Bummi]

war ein Tippfehler von himi ....

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
  C: TXMLDocument;
  I: IXMLDocument;
  Node: IXMLNode;
begin
  {
  C := TXMLDocument.Create(nil); // >> Memoryleaks wenn   C.Free; am Ende fehlt
  C.Active := True;

  C.DocumentElement := C.CreateNode('Hauptelement', ntElement, '');
  C.DocumentElement.Attributes['attrName'] := 'Attribut';
  Node := C.DocumentElement.AddChild('Ein_Kind', -1);
  Node.Text := 'Mit diesem Inhalt';
  Node := Node.AddChild('Ein_KindesKind', -1);
  Node.Text := 'Mit KindesKind Inhalt';

  C.SaveToFile('C:\temp\test.xml');
//  C.Free; //>> just 4 fun
  }

  I := TXMLDocument.Create(nil);   // keine Memoryleaks
  I.Active := True;

  I.DocumentElement := i.CreateNode('Hauptelement', ntElement, '');
  I.DocumentElement.Attributes['attrName'] := 'Attribut';
  Node := i.DocumentElement.AddChild('Ein_Kind', -1);
  Node.Text := 'Mit diesem Inhalt';
  Node := Node.AddChild('Ein_KindesKind', -1);
  Node.Text := 'Mit KindesKind Inhalt';

  I.SaveToFile('C:\temp\test.xml');

end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  ReportMemoryLeaksOnShutDown:=true;
end;