|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.287 Beiträge
Delphi 12 Athens
|
Re: Zeilen in einer Datei zählen
20. Mai 2006, 00: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);
Ein Therapeut entspricht 1024 Gigapeut.
|