Anzahl Zeilen

[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;