XML Datei anlegen

[himitsu]

jupp ... und es als Datei gespeichert oder geladen ... wie gesagt, siehe Demo in himXML

PS: siehe mein [add] weiter oben ... eventuell ist das ja ein Grund


Kurzfassung eines der Testcodes von drüben:

Delphi-Quellcode:

Program CheckLibs;

Uses Windows, SysUtils, ActiveX, XMLDOM, XMLIntf, XMLDoc;

Var i: Integer;
  XML: TXMLDocument;

Begin
  Try
    CoInitialize(nil);

    WriteLn('fill with 100.000 nodes, save into and load this from a file');

    XML := TXMLDocument.Create(nil);
    XML.Active     := True;
    XML.Version    := '1.0';
    XML.StandAlone := 'yes';
    XML.Encoding   := 'UTF-8';
    XML.Options    := [doNodeAutoIndent];
    XML.AddChild('xml');
    For i := 0 to 99999 do XML.DocumentElement.AddChild('Node' + IntToStr(i));
    XML.SaveToFile('Test.xml');
    XML.Free;

    XML := TXMLDocument.Create(nil);
    XML.LoadFromFile('Test.xml');
    XML.Free;
  Except
    On E: Exception do WriteLn(E.Classname, ': ', E.Message);
  End;
  WriteLn('press [enter]');
  ReadLn;
End.