Cita:
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';
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';
Repeat
Sleep(1000);
Until (Terminado = True);
Memo1.Text := 'Iniciando Conexión';
End;
end;