|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: [Konsolenanwendung] Fortschrittsanzeige
10. Okt 2013, 12:04
Delphi-Quellcode:
repeat / while...
...
if LineNo and $0F = 0 then
write(inttostr(LineNo)+' of '+maxlines+#13);
...
until...
writeln(inttostr(LineNo)+' of '+maxlines);
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|