|
Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.199 Beiträge
Delphi 12 Athens
|
Re: Zeilen in einer Datei zählen
19. Mai 2006, 23:18
Oder so:
Delphi-Quellcode:
Var F: TextFile;
Count: Integer;
Count := 0;
AssignFile(F, ...);
FileMode := fmOpenRead;
Reset(F);
While not EoF(F) do Begin
ReadLn(F);
Inc(Count);
End;
CloseFile(F);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. 
 my Delphi wish list : BugReports/FeatureRequests
|