Hi.
Warum speicherst du deine Zeilen nochmal um, wenn du sie schon in einer StringList hast? Weißt du, dass der Speicher für deine ZeilenListe, da sie lokal deklariert wird, nach dem Beenden deiner Prozedur AttributeLaden wieder freigegeben wird? Weißt du, dass Delphi zur Verarbeitung von
XML-Dokumenten die Komponente TXMLDocument mitbringt?
Delphi-Quellcode:
function CreateStringList(fn: TFileName): TStringList;
var
j: Integer;
ZeilenListe: array of String;
sl: TStringList;
begin
Result := TStringList.Create;
with Result do
begin
LoadFromFile(fn);
ShowMessage(Format('Zeilenzahl = %d', [Count]));
end;
end;
Auch dir einen schönen Abend.
marabu
PS: Und für Hawkeye auch einen solchen. Habe zu langsam getippt, aber dennoch ...