Text auf Konsole überschreiben

[kng]

Hi,

Ich habe eine Konsolenanwendung, in der in verschiedenen Prozeduren immer der Fortschritt angezeigt wird.
Bisher mache ich das so

Delphi-Quellcode:

WriteLn(Format('%u percent complete.', [iPercent]));

Wie kann man den Fortschritt jetzt immer überschreiben, so dass nicht immer eine neue Zeile erzeugt wird?

Danke!

[Muetze1]

Delphi-Quellcode:

Write(Format(#13+'%u percent complete.', [iPercent]));

Vorher einmalig ausserhalb der Schleife WriteLn; um die Zeile zu erzeugen. Danach kannst du mit

Delphi-Quellcode:

WriteLn('done.                                    ');

die Ausgaben überdecken.

[kng]

Danke, das funktioniert.

Allerdings wird immer ein Zeichen vom letzten geschriebenen Wort abgeschnitten, sobald sich die die Prozentzahl im 2 bzw. 3-stelligen Bereich befindet.

Kann man das auch noch verhindern?

//Edit
Habs jetzt gelöst, indem ich einfach ein Leerzeichen als letztes Zeichen angehängt habe.
Ist zwar nicht so schön, aber was solls... :zwinker:

Danke nochmal!