Loop While...do

Question

Oi pessoal !Tenho que executar uma rotina em at� 60 segundos depois deste tempoela dara uma menssagem.Ent�o o que eu fiz. declarei uma variavel privatecont : integer;no oncreate do form cont:=0;com um...

Beppe · Answer

Tente reprojetar a fun��o.Uma global(AindaValido: Boolean) indica a situa��o. Inicialize-a, sempre e onde precisar, com True. O timer agir� agora s� em 60 segundos. No OnTimer, AindaValido recebe False. E ao inv�s de manter a vari�vel cont, verifique o valor de AindaValido....

Fabio.hc · Answer

Troque este if:[code:1:7c0d8778f0]if cont=60 then [/code:1:7c0d8778f0]Por este:[code:1:7c0d8778f0]if cont >= 60 then[/code:1:7c0d8778f0] Porque a variavel cont � sempre incrementada e n�o para no valor 60. Quando vc clica no bot�o o valor de cont pode ser maior de 60....

Fred · Answer

if cont=60 then Begin ===> coloque isso     showmessage(�Tempo esgotado�)      exit; End; ===>e isso...

Ggean · Answer

Acontece que se tiver dentro de um loop ele nao vai conseguir verificar a var booleana pra isso precisa usar o Application.processmessages;

var//global
Continua:boolean=true;

no Ontimer//com interval=60000
begin
continua:=false;
application.processmessages;
end;

no loop;

while minha condicao do
begin
Application.processmessages;
if continua then
begin
meus comandos
end
else
begin
showmessage(�tempo esgotado�);
Exit;
end;
end;

Pelo q entendi � algo [b:35536ea9e5]marrom[/b:35536ea9e5]

[color=blue:35536ea9e5][b:35536ea9e5]marromenos[/b:35536ea9e5][/color:35536ea9e5] assim.

Um abraco!!!! gcarlos.alves@bol.com.br

Estudante · Answer

Muito obrigado a todos que responderam deu certo GGean.Valeu!...

F�rum Loop While...do #218082