Konsole: Zeile überschreiben

[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