Dateizeilen als String speicher

[mfs]

Danke .. ich habs

Delphi-Quellcode:

procedure AttributeLaden;
var j:integer;
    ZeilenListe:array of string;
    sl:TStringList;
begin

   SetLength(ZeilenListe,Zeilenanzahl());
   sl:=TStringlist.create;
   sl.loadfromfile('CAPI_Konfigurtion.xml');
   j:=0;
   while (j< sl.count)do inc(j);
   ZeilenListe[j]:= sl[j] ; 
   sl.free;

end;

function Zeilenanzahl():integer;
var i:integer;
    sl:TStringList;
begin
   sl:=TStringlist.create;
   sl.loadfromfile('CAPI_Konfigurtion.xml');
   i:=0;
   while (i< sl.count) do inc(i);
   sl.free;
   result:=i;
end;

Aller... Weiterhin einen schoenen Abend noch wunsche ich euch.
mfs