Цикл в цикле, Прерывание Опции

[BananaMan]

k:=0;
 for i:=1 to m do
  for j:=1 to n do
   if (StringGrid1.Cells[j,i]='')or(StringGrid2.Cells[j,i]='') then
    begin
     inc(k);
     break;
    end;
 if k<>0 then ShowMessage('матрицы имеют незаполненные ячейки')

вопрос:
если у меня условие выполняется, как прервать оба цикла сразу?

[klem4]

если у меня условие выполняется, как прервать оба цикла сразу?

for i := 1 to n do begin
  for j := 1 to m do
    if lalala[i,j] then break;
  if lalala[i,j] then break;
end;

или

i := 1;
while (i <= n) do begin
  j := 1;
  while (j <= m) do begin
    if lalala[i,j] then break;
    inc(j);
  end;
  if j <= m then break else inc(i);
end;

или

i := 1;
while (i <= n)  do begin
  j := 1;
  while (j <= m) and not(lalala[i,j]) do inc(j);
  if j <= m then break else inc(i);
end;

Сообщение отредактировано: volvo - 4.11.2006 0:33