zeilen anzahl von text file bestimmen ?

[marabu]

5-mal nachbearbeitet und dann so ein Ergebnis... was rauchst du, mein Freund?

Delphi-Quellcode:

function LineCount(fileName: string): cardinal;
var 
  sl: TStringList; 
begin 
  sl := TStringList.Create;
  try 
    sl.LoadFromFile(fileName);  
    Result := sl.Count; 
  finally 
    sl.Free; 
  end;
end;

Grüße vom marabu

PS: Bei dem Ansatz sollten die Dateien aber besser nicht zu groß sein...