Anzahl Zeilen

[tail]

Wie kann ich die Anzahl Zeilen aus einer .txt datei auslesen? Oder kann ich auch die einträge zählen, nachdem ich mit
var.LoadFromFile(getcurrentdir+'\var.txt');
Die Einträge ausgelesen habe?

[DevilsCamp]

Es gibt sicher bessere Lösungen, diese funzt aber zu 99%:

Delphi-Quellcode:

function LinesInTXTFile(const FileName: String): Integer;
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(FileName);
  Result := sl.Count;
  sl.Free;
end;