Anzahl Zeilen in einem Textfile

[Gollum]

Hallo,

wie wäre es damit?

Delphi-Quellcode:

var sl:TStringList;
...
sl:=TStringList.Create;
try
  sl.LoadFromFile('c:\test.txt');
  ShowMessage(Format('Datei enthält %d Zeilen.', [sl.Count]));
finally
  sl.Free;
end; // try