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.