1:
2:

for i := 1 to 100 do
  writeln(i); // <-- i soll immer an der selben Stelle stehen					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

program Project1;

{$APPTYPE CONSOLE}

uses
  windows, SysUtils;

var
i: integer;
TextAttr: Byte;
ConsoleScreenRect: TSmallRect;
hConsoleOutput: THandle;

function WhereY: Byte;  // aus unit "crt32.pas"
var
  CBI: TConsoleScreenBufferInfo;
begin
  GetConsoleScreenBufferInfo(hConsoleOutput, CBI);
  Result := TCoord(CBI.dwCursorPosition).Y + 1 - ConsoleScreenRect.Top;
end;

procedure DelLine;  // aus unit "crt32.pas"
var
  SourceScreenRect: TSmallRect;
  Coord: TCoord;
  CI: TCharinfo;
  dwSize, dwCount: DWORD;
begin
  SourceScreenRect := ConsoleScreenRect;
  SourceScreenRect.Top := WhereY + ConsoleScreenRect.Top;
  CI.AsciiChar := ' ';
  CI.Attributes := TextAttr;
  Coord.X := SourceScreenRect.Left;
  Coord.Y := SourceScreenRect.Top - 1;
  dwSize := SourceScreenRect.Right - SourceScreenRect.Left + 1;
  ScrollConsoleScreenBuffer(hConsoleOutput, SourceScreenRect, nil, Coord, CI);
  FillConsoleOutputAttribute(hConsoleOutput, TextAttr, dwSize, Coord, dwCount);
end;

procedure GotoXY(X, Y: Byte); // aus unit "crt32.pas"
var
  Coord: TCoord;
begin
  Coord.X := X - 1 + ConsoleScreenRect.Left;
  Coord.Y := Y - 1 + ConsoleScreenRect.Top;
  if not SetConsoleCursorPosition(hConsoleOutput, Coord) then
  begin
    GotoXY(1, 1);
    DelLine;
  end;
end;

begin
for i := 1 to 100 do
  begin
    write(i);
    sleep(1000);
    gotoxy(1,1);
  end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

{$IfDef VER130}
  {$Define NEW_STYLES}
{$EndIf}

{$IfDef VER140}
  {$Define NEW_STYLES}
{$EndIf}

{$IfDef VER150}
  {$Define NEW_STYLES}
{$EndIf}

{$IfDef VER160}
  {$Define NEW_STYLES}
{$EndIf}

{$IfDef VER170}
  {$Define NEW_STYLES}
{$EndIf}


{$HINTS OFF}


{$Define HARD_CRT}       // Redirect STD_...
{..$Define CRT_EVENT}      // CTRL-C,...
{..$Define MOUSE_IS_USED}  // Handle mouse or not
{..$Define OneByOne}       // Block or byte style write					

1:
2:
3:
4:
5:
6:
7:

write ('    ');
for i := 1 to 100 do
  begin
  write(#8,#8,#8,#8,i:4); // <-- i soll immer an der selben Stelle stehen
  sleep (500);
  end;
writeln;					

1:
2:
3:
4:
5:
6:
7:

write ('    ');
for i := 1 to 100 do
  begin
  write(#13#8,#8,#8,#8,i:4); // <-- i soll immer an der selben Stelle stehen
  sleep (500);
  end;
writeln;					

1:
2:
3:
4:
5:
6:
7:

write ('    '); 
for i := 1 to 100 do 
  begin 
  write(#8,#8,#8,#8,i:4); // <-- i soll immer an der selben Stelle stehen 
  sleep (500); 
  end; 
writeln;					

1:
2:
3:
4:
5:
6:
7:

write ('    '); 
for i := 1 to 100 do 
begin 
  write(#8#8#8#8,i:4); // <-- i soll immer an der selben Stelle stehen 
  sleep (500); 
end; 
writeln;