Fórum ..-- Interromper somente o Loop que estou --.. #195387

17/11/2003

0

Tem como eu [b:4d18ca70a2]Interromper somente o Loop que estou[/b:4d18ca70a2], porém [b:4d18ca70a2]sem [/b:4d18ca70a2]imterromper o Loop mais externo e também [b:4d18ca70a2]sem [/b:4d18ca70a2]interromper a procedure.

Grato,

Claudio. :D


Claudio Sam

Claudio Sam

Responder

Posts

17/11/2003

Yankleber

Olá,

Simplesmente insira um comando [b:bdc5e5bf3f]break[/b:bdc5e5bf3f] no ponto de interrupção desejado, assim:

Procedure TForm1.teste;
var z: integer;
begin
   for z := 1 to 10 do if (z = 5) then break;
   Label1.caption := IntToStr(z);
end;


Crie um form e insira um botão e um label no mesmo. No evento click do botão coloque uma chamada para a procedure acima: o loop será interrompido ao atingir o valor 5, e você verá a confirmação disso quando o valor de z for impresso no Label1.

Espero ter ajudado.


Responder

Gostei + 0

17/11/2003

Claudio Sam

Grato,

Claudio. :lol:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar