Schnell Anzahl der Zeilen einer Textfile ermitteln?

[MaBuSE]

Zitat:

Zitat von yankee

Mal ganz einfach:

Delphi-Quellcode:

function getlength(const FileName: TFileName)
var datei:textfile
    str:string;
begin
  result =0;
  assignfile(datei, FileName);
  reset(datei);
  while not eof(datei) do
  begin
    readln(datei, str);
    inc(result);
  end;
end;

Leider hat Deine Lösung einige Nachteile:

• Sie bricht ab, sobald ^Z in einer Datei enthalten ist. (EOF)
  Wenn z.B. Anzahl der #13 in einer Binärdatei zu ermitteln ist.
• sie lässt sich nicht kompilieren, da:
  Funktion kein Rückgabetyp definiert hat,
  2 mal der Strichpunkt fehlt und
  da man in Delphi Werte mit := nicht mit = zuweist

(Letzeren Punkt habe ich nur der Vollständigkeit haber aufgenommen, passiert mir auch öffter, wenn ich nicht eben mal kurz Strg+F9 drücken kann ;-))

ABER:

• Sie ist schneller als meine Lösung
• Und sie ist einfach.