Konsolenanwendung: Änderung vorhandener Zeichen

[turboPASCAL]

Delphi-Quellcode:

procedure GotoXY(X, Y: Byte);
var
  Coord: TCoord;
  ConsoleScreenRect: TSmallRect;
  CBI: TConsoleScreenBufferInfo;
begin
  GetConsoleScreenBufferInfo(hConsoleOutput, CBI);
  ConsoleScreenRect := CBI.srWindow;

  Coord.X := X - 1 + ConsoleScreenRect.Left;
  Coord.Y := Y - 1 + ConsoleScreenRect.Top;
  SetConsoleCursorPosition(hConsoleOutput, Coord);
end;


var
  hConsoleOutput: THandle;

BEGIN
  hConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
  ...
  ...
END.

Damit kann man schon was anfangen. Wenn du aber noch mehr Functionen brauchst, schau dich mal nach der Unit Crt32.pas hier in der DP um. Sie ist ein Ersatz für die Crt-Unit aus Turbo Pascal.