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
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]

Write(Format(#13+'%u percent complete.', [iPercent])); Vorher einmalig ausserhalb der Schleife WriteLn; um die Zeile zu erzeugen. Danach kannst du mit

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...

Danke nochmal!