Konsolenanwendung: Änderung vorhandener Zeichen

[marabu]

Moin Malte,

den Effekt erhältst du durch die Verwendung des ASCII Steuerzeichens CR (#13):

Delphi-Quellcode:

var
  con: TextFile;
begin
  AssignFile(con, 'con:');
  Rewrite(con)
  for i := 1 to 50 do
  begin
    // ...
    Write(con, Format(#13'%.1n %% ', [2.0 * i]));
  end;
end;

Grüße vom marabu