Bucle For con Repeat.

[Neftali [Germán.Estévez]]

Empezado por ramonibk

pero esto parece que es demasiado rápido y se queda enganchado y no es capaz de realizar las tareas de echo no es capaz de pintar en el momo.
por lo que pense en depender de una bariable global para controlar el "For" la estructura que tenia pensada es mas o menos.

Código Delphi [-]
Var
 N : Integer;
Begin
 For N = 0 To ListBox.Items.Count -1 Then
   Begin
      Repeat
         Begin;
           Memo1.Text := 'Iniciando Conexión';
          //Ejecuto todo lo necesario.
         End;
       Until  Terminado = True ;
         Begin
           Memo1.Text := 'Iniciando Conexión';
         End;
   End;
End;

Pero no soy capaz de que esto funcione. se me bloquea la aplicacion.

Creo que la idea es la correcta.
Se puede hacer utilizando cosas más complejas (Threads por ejemplo), pero como primera solución debería servir.
El código sería algo así (en el que has puesto la ejecución está dentro de repeat y eso no soluciona el problema):

Código Delphi [-]
Var
  N:Integer;
Begin
  For N := 0 To (ListBox1.Items.Count -1) do Begin
    Terminado := False;
    Memo1.Text := 'Iniciando Conexión';
    // Ejecuto todo lo necesario.... (dentro al acabar pongo    Terminado := True)

    // Espero mientras el proceso no acaba (Terminado=Falso)
    Repeat
      Sleep(1000);
    Until (Terminado = True);

    Memo1.Text := 'Iniciando Conexión';
  End;
end;

[ramonibk]

Gracias Neftali Tambien me ha sido muy útil.

al final como era para una conexión telnet se me quedaba colgado con mucha facilidad.
al final el código que me ha funcionado a sido.

Código Delphi [-]
procedure TForm2.BtnMultiClick(Sender: TObject);
Var
 N : Integer;
begin
   Repeat
     sleep(1000);
   Until (IdTelnet1.Connected = False);
    Begin
     for N := 0 to ListBox1.Items.Count -1 do
      Begin
       IdTelnet1.Host := ListBox1.Items[N];
       IdTelnet1.Port := StrToInt( EdPuerto.Text );
       IdTelnet1.Connect;
       Log.Lines.add(format('conexión a IP: '+ListBox1.Items[N]);
       Conectado := True;
       Log.SetFocus;
         Repeat
           application.processMessages;
           sleep(1000);
         Until (Conectado = False) ;
      End;
    End;
end;

Un saludo y gracias a todos.