Процедура Gotoxy, Какой скрипт процедуры gotoxy Опции

[Bokul]

Хто знает как работает процедура gotoxy. :low:
И еще: работает ли она при работе с файлами?
Если нет, то можна написать самому такую процедуру. :ryg:

[klem4]

Вот написал процедурку, вроде работает, выводит на экран символ из файла(текстового) с "координатами" (X,Y), только зачем это нужно )))))))))))

собсно чуть поменять и можно установить туда "курсор" я думаю или втавить нужный символ чтоли ...

procedure _GotoXY(var T : Text; x, y : integer);
var
   count : integer;

      s  : string;
begin

   count := 1;
   readln(f, s);

   while not(EOF(T)) and (count <> y) do begin
      readln(f, s);
      inc(count);
   end;

   if (count = y)and(x<=length(s)) then
    writeln(s[x])
   else exit;

end;

возможно есть ошибка , но идея тебе должна быть ясна ...

привер для файла, в котором содержится

123a
456b
789c

_GotoXY(f, 2, 3)

выдаст 8

(не забывай что ось Y направлена вниз ;) )

Сообщение отредактировано: klem4 - 29.09.2005 0:07