Ver Mensaje Individual
  #1  
Antiguo 22-05-2015
wolfran_hack wolfran_hack is offline
Miembro
 
Registrado: abr 2013
Posts: 97
Reputación: 12
wolfran_hack Va por buen camino
Post Obtener dato de listview y moverlo a un memo, esperar 2 min, enviar y volver a cargar

Hola a todos los miembros del foro, básicamente esta explicado mi problema en el titulo de este hilo pero les comento nuevamente:

Tengo un ListView1 que tiene cargados unos datos, vamos a decir que tenemos 3 datos:

Código:
dato1
dato2
dato3
teniendo estos datos hay que pasarlos a un memo1 de a uno!, utilice el codigo:

Código Delphi [-]
procedure TForm1.BitBtn3Click(Sender: TObject);
var
n: integer;
begin
for n:=0 to ListView1.Items.Count-1 do
  begin
       memo1.Text := ListView1.Items.Item[n].Caption;
       // rutina
  end;
end;

perfectamente el dato que estaba en el listview se movio al memo1, ahora el problema esta en que el no puedo para el bucle, teniendo 3 datos, me muestra solo el dato3 que seria el ultimo de la lista, ahora trate de utilizar un:

Código Delphi [-]
Sleep(5000);

sigue igual, probe:

Código Delphi [-]
for n:=0 to ListView1.Items.Count-1 do
  begin
       Sleep(5000);
       memo1.Text := ListView1.Items.Item[n].Caption;
  end;

Código Delphi [-]
for n:=0 to ListView1.Items.Count-1 do
  begin
       memo1.Text := ListView1.Items.Item[n].Caption;
       Sleep(5000);
  end;

mi pregunta principal es si puedo parar el bucle para tener el tiempo necesario para completar la rutina que continua?
Responder Con Cita