Sair do loop

Question

Eu entou fazendo um programa que fica fazendo loop
exemplo

for i:=0 to 5000000000 do
begin
sleep(1000); // pra o processamento durante 1 segundo
beep;
end;

Como eu fa�o para parar esse loop?
:(
Alguem me ajude!!!!!!!!!!
agrade�o desde j�.

Macario · Answer

Ola programador, bom dia.[quote:a86746856e]for i:=0 to 5000000000 do begin sleep(1000); // pra o processamento durante 1 segundo beep; //por exemploif i > 50000 then[color=red:a86746856e]  break[/color:a86746856e];//comando para sair do forend; [/quote:a86746856e]espero ter ajudado...

Nmk · Answer

Eu ja tentei o comando break mas n�o funcionou
como seria para apertar a tecla esc para parar o for?

Ola programador, bom dia. [quote:714a5e2e9c] for i:=0 to 5000000000 do begin sleep(1000); // pra o processamento durante 1 segundo beep; //por exemplo if i > 50000 then [color=red:714a5e2e9c] break[/color:714a5e2e9c];//comando para sair do for end;

espero ter ajudado[/quote:714a5e2e9c]

Beppe · Answer

1) Declare a var ApertouESC: Boolean no private do form
2) No OnKeyDown do form, bote if Key = VK_ESC then ApertouESC := True;
3) Para checar a tecla no loop, use if ApertouESC then Break;

Lembre-se de iniciar ApertouESC como False antes do loop, e chamar Application.ProcessMessages, no in�cio do loop.

Djjunior · Answer

n�o tenho certeza mas, creio que para que o sistema possa processar as intera��es com teclado vc teria que colocar algo do tipo:

Application.ProcessMessages

Dentro do seu loop, se n�o o processador s� vai verificar o OnKeyDown do form (e outras intera��es) depois de terminar todo o processamento do loop.

R�mulo Barros · Answer

[quote:2af2d77090=�djjunior�]n�o tenho certeza mas, creio que para que o sistema possa processar  as intera��es com teclado vc teria que colocar algo do tipo:Application.ProcessMessagesDentro do seu loop, se n�o o processador s� vai verificar o OnKeyDown do form (e outras intera��es) depois de terminar todo o processamento do loop.[/quote:2af2d77090]Perfeito. Dentro do seu loop vc ter� que adicionar a linha de c�digo citada pelo colega djjunior (application.ProcessMessages) .. .. .. Da� por diante, � s� seguir os conselhos do amigo beep.  :wink:...

Nmk · Answer

Valeu galera deu certo muito obrigado pela for�a!!!!!!!!!!!!!1...