Re: Write

From

Yury Sinegubov ()

To

All ()

Date

2002-04-04T23:04:09Z

Area

RU.DELPHI

Anton Shnayder wrote:

> Как можно реализовать вывод символа по каким
> либо координатам, в консольном режиме.

procedure WriteXY(x, y: short; str: string);
var
  hOutput: dword;
  Coord: TCoord;
begin
  hOutput := GetStdHandle(STD_OUTPUT_HANDLE);
  Coord.x := x; Coord.y := y;
  SetConsoleCursorPosition(hOutput, Coord);
  Write(str);
end;

--
Yury.Sinegubov@consultant.com
--- Xnews/03.09.22
 * Origin: JSC Kontakt-Svyaz-Service Myski Kemerovo reg. Rus (2:5006/1@fidonet)