Anzahl Zeilen in einem Textfile

[MarcusB]

Ist vielleicht umständlich, aber dürfte funzen :

Delphi-Quellcode:

var
  txt: textfile;
  anzahl: integer;
begin
  AssignFile(txt, 'xyz.txt');
  reset(txt);
  while not EOF(txt) do
  begin
    inc(anzahl);
  end;
  CloseFile(txt);
  
  ShowMessage(IntToStr(anzahl));
end;

Gruß

MarcusB