Dificuldade com LOOP

Question

Caros amigos, tenho um problema para resolver:

Eu tenho dois FOR rodando um dentro do outro, at� ai tudo bem, o problema � que eu tenho que interromper o processamento do segundo FOR sem interromper o processamento do 1�, alguem teria uma sugest�o?

Sandrost · Answer

Ol� Henry, tente utilizar o comando �break�, veja abaixo um exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
i, x: Integer;
begin
for i:=0 to 100 do begin
for x:=0 to 100 do begin
Label1.Caption:=trim(inttostr(i))+�/�+trim(inttostr(x));
Label1.Refresh;
if x=25 then
break;
end;
end;
end;

Quando o valor de x for igual a 25 ser� interrompido o for interno passando a execu��o para o for externo.

Espero ter ajudado.

Sandro S. :D

Beppe · Answer

O Delphi n�o fornece uma sa�da pr�tica para isto. :x Mas tem dois jeitos: usando goto, ou uma vari�vel.

Usando goto:

label Loop1;
var
  I, J: Integer;
begin
  for I := 0 to 10 do
  begin
    ...
    for J := 0 to 10 do
    begin
      ...
      if { condi��o para acabar os dois loops } then 
        goto Loop1;
      ...
    end;
    ...
  end;
Loop1:
  // 
end;

Criando uma vari�vel:

var
  I, J: Integer;
  Terminou: Boolean;
begin
  Terminou := False;
  for I := 0 to 10 do
  begin
    ...
    for J := 0 to 10 do
    begin
      ...
      if { condi��o para acabar os dois loops } then 
      begin
        Terminou := True;
        Break;
      end;
      ...
    end;
    if Terminou then Break;
    ...
  end;
Loop1:
  // 
end;

Ataliba

F�rum Dificuldade com LOOP #191408