Как прервать внешний цикл?

[AndreyF]

Добрый день!
Подскажите пожалуйста.
Пытаюсь вычислить координаты нужной ячейки в excel.
В этом коде, если значение ячейки равно ФОРУМ, то вложенный цикл прервётся.
А как прервать два цикла сразу, чтоб вычислить координаты ячейки?

for x:=1 to 20 do
for y:=1 to 20 do
if AnsiUpperCase(page_import.Cells[x,y])='ФОРУМ' then break;

[Neeter]

Ну, например какой-нибудь булевской переменной присвоить true:

var
 b: boolean;
begin
 b := false;
 for x:=1 to 20 do
 begin
  for y:=1 to 20 do
   if AnsiUpperCase(page_import.Cells[x,y])='ФОРУМ' then 
   begin
    b := true;
    break; 
   end;
  if b then Break;
 end;
end;

[Evgeniy26]

Тогда и такой вариант:

procedure TForm1.Button1Click(Sender: TObject);

 procedure Excel;
 var
   x, y: Integer;
 begin
   for x:=1 to 20 do
     for y:=1 to 20 do
       if AnsiUpperCase(page_import.Cells[x,y])='ФОРУМ' then
         exit;
 end;

begin
  Excel;
end;

[Sazary]

Ну раз про булеву переменную уже сказали, то предложу еще такой вариант:

label l1;
begin
//...................
for x:=1 to 20 do
 for y:=1 to 20 do
  if AnsiUpperCase(page_import.Cells[x,y])='ФОРУМ' then goto l1;

l1:
//.................

Хоть это и не очень красиво

[Neeter]

Нормальный вариант, Sazary

[AndreyF]

всё работает, всем спасибо.

[mutabor]

Sazary, +1
з.ы. Это даже очень красиво, лучший способ выхода из вложенных циклов.

[BARNEY]

да не чего красивого нет...ужассс просто..потом как код читать... Не удобно....У меня реализовано так

for i:=1 to 20 do
      for j:=1 to 20 do
        if(VarToStrDef(ws[jj].Cells[i,j],'')='Текстовое значение')then
        begin
          st_y:=i;
          st_x:=j;
          Break;
        end;

[__STDC__]

Сообщение от BARNEY

да не чего красивого нет...ужассс просто..потом как код читать... Не удобно....У меня реализовано так

и? это выход из вложенного цикла, а не из внешнего...

***
код Sazary вполне хорош. Вы наслушались сказок про goto, вбили себе в голову что его НИКОГДА нельзя использовать и критикуете... в данном случае читабельность кода ничуть не ухудшается.

[Stilet]

Не знаю как кто, но я всегда такие случаи делаю так:

 procedure Excel;
 var
   x, y: Integer;
   b:boolean;
 begin
  b:=true;
   x:=1; while b and(x<20) do begin
     y:=1; while b and (y<20) do begin
       b:=AnsiUpperCase(page_import.Cells[x,y])='ФОРУМ';
       inc(y);
      end;
      inc(x);
    end;
 end;

begin
  Excel;
end;

Я кстати тоже не любитель GOTO, но считаю это делом вкуса.