Perdento o loop qdo abro form dentro dele

Question

Preciso abrir um form em loop s� q quando eu abro esse form o loop n�o vai at� o final e a Numera��o de indice q controla o loop volta pra zero:var Indice : Integer;    for Indice:=0 to (FileListBox1....

Koplin · Answer

Use uma variavel global para armazenar o ponto em q parou e fa�a o loop baseado nesta var, incrementando-a

var Indice, Ponto : Integer; //poe global
//na chamada da procedure fa�a:
ponto :=0;//
for Indice:=Ponto to (FileListBox1.items.count-1) do
begin
inc(ponto);
if FileListBox1.Items.Strings[indice] = �Entra� then
begin
Try
Application.CreateForm(TFrmReindexa, FrmReindexa);
FrmReindexa.ShowModal;
Finally
FrmReindexa.Free;
End;
end;
end;

Nao sei se � isso mas tenta...

Emerson Nascimento · Answer

Acho que voc� est� enganado. O loop continua sim. Executei o c�digo exatamente como voc� publicou e funcionou perfeitamente.

var Indice : Integer;

for Indice:=0 to (FileListBox1.items.count-1) do 
begin 
  if FileListBox1.Items.Strings[indice] = �Entra� then 
    Try 
      Application.CreateForm(TFrmReindexa, FrmReindexa); 
      FrmReindexa.ShowModal; 
    Finally 
      FrmReindexa.Free; 
    End; 
end;

o problema � que depois da execu��o o loop executa muito r�pido.
agora tente o seguinte:
adicione um label no seu form e exiba o valor da vari�vel indice. voc� vai ver que funciona.

var Indice : Integer;

for Indice:=0 to (FileListBox1.items.count-1) do 
begin 
  if FileListBox1.Items.Strings[indice] = �Entra� then 
    Try 
      Application.CreateForm(TFrmReindexa, FrmReindexa); 
      FrmReindexa.ShowModal; 
    Finally 
      FrmReindexa.Free; 
    End; 

  // acione um label e coloque essa linha.
  Label1.Caption := IntToStr(indice);

end;

ou, para exemplificar melhor, exiba, num showmessage, o valor da vari�vel indice:

var Indice : Integer;

for Indice:=0 to (FileListBox1.items.count-1) do 
begin 
  if FileListBox1.Items.Strings[indice] = �Entra� then 
    Try 
      Application.CreateForm(TFrmReindexa, FrmReindexa); 
      FrmReindexa.ShowModal; 
    Finally 
      FrmReindexa.Free; 
    End; 

  // exiba o valor numa mensagem.
  ShowMessage( IntToStr(indice) );

end;

voc� vai perceber que o valor ser� exibido corretamente.

Massuda · Answer

No seu c�digo, o loop ir� ficar paralisado at� que o form FrmReindexa seja fechado.

Entretanto, se voc� estiver usando Application.ProcessMessages dentro da implementa��o de FrmReindexa, teoricamente � poss�vel ocorrer reentr�ncia e seu loop ser iniciado novamente; note que esta nova execu��o nada tem a ver com a primeira execu��o.

Ao inv�s de criar o form e dar um ShowModal, talvez voc� devesse considerar a possibilidade se dar um Show no form, principalmente se FrmReindexa n�o for uma caixa de di�logo.

Janete · Answer

N�o consegui, e fiz um teste ocultando a abertura do form a� funciona perfeitamente mas se eu abrir n�o d� certo, criei as variaveis global tb n�o deu, algu�m pode me dar mais alguma sugest�o?

Massuda · Answer

[quote:8bd82c89a5=�Janete�]N�o consegui, e fiz um teste ocultando a abertura do form a� funciona perfeitamente mas se eu abrir n�o d� certo...[/quote:8bd82c89a5]D� uma olhada nos eventos OnCreate, OnShow e OnActivate do seu form FrmReindexa. Pode ser interessante voc� postar aqui o c�digo do FrmReindexa....

Emerson Nascimento · Answer

o desejado � que o form se abra e o loop continue executando, simult�neamente?...

Janete · Answer

[quote:28f74d24c8=�emerson.en�]o desejado � que o form se abra e o loop continue executando, simult�neamente?[/quote:28f74d24c8]N�o, ele aguarde o form ser fechado, s� a� ele continua. Eu estava observando aqui me parece q o problema se d� por esse processo estar sendo feito no OnTimer de um componente Timer, � q o timer fica todo momento mesmo com q o intervalo definido seja maior, passando novamente pelo processo e ent�o o loop volta para o in�cio e come�a tudo novamente. O que posso fazer agora?...

Emerson Nascimento · Answer

ah.... agora t� explicado!vc pode desligar o timer, executar o [b:4ee0a259ff]for[/b:4ee0a259ff] e depois relig�-lo....

Janete · Answer

[quote:38dec36e33=�emerson.en�]ah.... agora t� explicado!vc pode desligar o timer, executar o [b:38dec36e33]for[/b:38dec36e33] e depois relig�-lo.[/quote:38dec36e33]Belezinha, obrigado! Outra coisa, ainda nesse mesmo processo qdo abro o FrmReindexa, executo um processo l� dentro logo no formshow e logo q termino coloco um Close para q feche o form qdo terminar o processo, mas ele n�o fecha tenho q fechar manual, o onclose est� vazio. Parece t�o simples mas n�o fecha....

Emerson Nascimento · Answer

acho que isso requer um �ajuste t�cnico�...

coloque um Timer no FrmReindexa com interval 1000 (um segundo) e coloque seu c�digo nesse Timer (n�o fa�a no OnShow).
fa�a da mesma forma que no outro:
ao entrar no Timer desligue-o, execute o seu c�digo d� o Close.

procedure FormReindexa.Timer1OnTimer(Sender: TObject);
begin
  Timer1.Enabled := False;
  {C�digo que estava no OnShow};
  Close;
end;

veja se assim funciona.

Emerson Nascimento · Answer

s� um adendo:deixe o timer do FrmReindexa desligado e s� lique-o no OnShow.[code:1:ddc275c8a0]procedure FrmReindexa.FormCreate(Sender: TObject); begin   Timer1.Enabled := False; end;procedure FrmReindexa.FormShow(Sender: TObject); begin   Timer1.Enabled := True;end;procedure FrmReindexa.Timer1OnTimer(Sender: TObject); begin   Timer1.Enabled := False;   {C�digo que estava no OnShow};   Close; end;[/code:1:ddc275c8a0]...

F�rum Perdento o loop qdo abro form dentro dele #270483