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

[Bokul]

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

[Bokul]

Вообще-то я мне надо было написать аналог команды текстовых редакторов
Find(on this page), и для етой цели мне нужно было использовать gotoxy,
но у мене вышло сделать ету задачку не используя ету процедуру.
Вот она(но пока не работает с файлами :p2: )

Program FindText;
uses crt;
var str,str1,find:string;
    i,j:integer;
Begin
clrscr;
textcolor(white);
writeln('Please, enter the text ');
readln(str);
writeln('Enter the word you want to find');
readln(find);
j:=0;
str1:='';
for i:=1 to length(str) do
     begin
     if str[i]=' ' then
           begin
               if str1=find then
                     begin
                          textcolor(red);
                          write(str1,' ');
                          textcolor(white);
                          inc(j);
                     end
               else write(str1,' ');
           inc(i);
           str1:='';
           end;
     str1:=str1+str[i];
     end;
if j=0 then
     begin
     writeln;
     write('In this text there is not word ',find);
     end;
readln;
end.

Только одна проблема - програма не читает последний символ строки.
Не подскажеш как избавится от нее? :molitva:

Сообщение отредактировано: volvo - 30.09.2005 5:18

[volvo]

Только одна проблема - програма не читает последний символ строки. Не подскажеш как избавится от нее? :molitva:

Ты же сам идешь против правил, а потом удивляешься... Что вот это, по-твоему?

for i:=1 to length(str) do
     begin
     if str[i]=' ' then
           begin
               if str1=find then
                     begin ... end
               else write(str1,' ');
           inc(i); { <--- Здесь !!! }
           str1:='';
           end;
     str1:=str1+str[i];
     end;

Это как раз нарушение правил использования циклов. Черным по белому в документации сказано: "Если оператор, содержащийся в теле оператора for, изменяет значение управляющей переменной, то это является ошибкой."
(взято отсюда: Руководство по языку B.Pascal 7 & Objects/LR -> Оператор FOR)