Anzahl Zeilen in einem Textfile

[Hansa]

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.