Anzahl der Zeilen in einer Text Datei???

[Wuaegner]

Servus Christian.
Meine Idee:

Code:

 .
                   .
                   .
                   while not Eof do begin
                   readln(File); inc(Zeile);
                   end;

Grüße Flo