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.