Ich habe das Thema jetzt nur überflogen, aber anfangs gings hier drum :
Zitat:
Ich möchte die Anzahl Zeilen in einem Textfile auslesen (Typ: textfile).
Delphi-Quellcode:
var d : TextFile;
i : integer;
begin
i := 0;
AssignFile (d,'meintext.txt');
reset (d);
while not eof (d) do begin
readln (d);
i := i + 1;
end;
showmessage (IntToStr (i))+ ' Zeilen');
end.
Die paar Zeilen sind das kompette Programm !! Ohne Stringlist und sonstigen Firlefanz. Und 500 MB
sind dem auch egal.