Курсор в графике, Как послать курсор в графике Опции

[DEXTER]

Вот например у меня написано
.......
OutTextXY(100,100,'Ответ');
--------------
я начинаю писать ответ, а у меня курсор возвращается в точку (0,0)! А мне надо чтобы он был правее слова "Ответ" на экране!

GoToXY - не катит! При компиляции он почему-то не работает, т.е. курсор находится в (0,0).
Подскажите пожалуста!

[volvo]

MoveTo + F1

P.S. А вообще-то можешь поискать по форуму, по-моему где-то выкладывалась функция ввода строки в графическом режиме в заданной позиции ...

Сообщение отредактировано: volvo - 1.06.2007 9:23

[Ozzя]

Тебе нужно использовать readkey
while key<>13 do // пока не нажали enter
begin
key:=readkey; // прочитать код клавиши
/// преобразовать его в символ
OutText(); // вывести на экран
end;

[DEXTER]

MoveTo(x,y) - прермешает указатель координат в точку окна с координатами (x,y). Точка на экране не высвечивается.
А что такое F1 ?

[volvo]

А ты не просил высветить точку... Ты спрашивал про изменение координат указателя, или твой первый пост говорит о другом?

А F1 - это справка Турбо Паскаля...

Тебе, кстати, Оззя уже написал что надо делать: после ввода очередного символа с клавиатуры выводить его через OuttextXY там, где это нужно тебе...

[DEXTER]

Вот это сейчас у меня в программе так:

Код

repeat
     OutTextXY(130,438,'Ответ:');
      GotoXY (24,28);
     ReadLn(ch);
    Until ch in ['1'..'4'];

А мне нужно чтобы не было GoToXY, но символ там показывался!

[DEXTER]

Тебе нужно использовать readkey
while key<>13 do // пока не нажали enter
begin
key:=readkey; // прочитать код клавиши
/// преобразовать его в символ
OutText(); // вывести на экран
end;

мне кажется с ReadKey никак не получится, потому-что мне нужен ch, он у меня ответ выбирает!
вот косяк то......!!!!

[Ozzя]

while ch> #13 do
begin
ch:=readkey;
OutText(ch);
end;

Сообщение отредактировано: Ozzя - 1.06.2007 13:16