Правила форума
TrackCur.PASЯзык:
Русский
English
{ Пример программы для процедуры TrackCursor }
{ Компилировать в режиме Windows }
uses WinCrt;
var
X : Integer;
begin
for X := 1 to 30 do
Write('Xx');
TrackCursor;
ReadLn;
end.
uses WinCrt;
var
X : Integer;
begin
for X := 1 to 30 do
Write('Xx');
TrackCursor;
ReadLn;
end.
::
::
::
