Konsole: Zeile überschreiben

[dominikkv]

Hi

wie kann ich in einer Konsolenanwendung die letzte Zeile löschen/überschreiben?
Mein Ziel ist es eine Prozentanzeige anzuzeigen die hochzählt...

mfg.Dominik

[marabu]

Hallo Dominik,

versuche es so:

Delphi-Quellcode:

var
  con: TextFile;
  i: Integer;
begin
  AssignFile(con, 'CON:');
  Rewrite(con);
  for i := 0 to 100 do
  begin
    Write(con, #13, i);
    // ...
  end;
  CloseFile(con);
end;

Grüße vom marabu

[calculon]

Hier wurde ein ähnliches Thema schonmal diskutiert. Vielleicht hilft's dir ja weiter.

[dominikkv]

jo, danke euch beiden