escritura de actualización de Delphi ListView

Var

I: Entero;

ID: Cadena //Cuenta

Empezar

Timer1.Enabled := False;

Pruebe

Con ListView1, ADOQuery1 Hacer

Empezar

Abrir; //Abrir datos actualizados

Para I:= 0 A Items.Count - 1 Do

Comenzar

ID:= Trim(Items.Count) ; //Artículo.> ID := Trim(Items[I].SubItems[0]); //Cuenta, palabra clave

Si ADOQuery1.Locate('Cuenta', ID, []) Entonces / /Localizar el conjunto de datos y actualizar

Inicio

Items[I].SubItems[1] := ADOQuery1.FieldByName('Status').AsString;

Elementos[I].SubItems[2] := ADOQuery1.FieldByName('Time').AsString;

Fin

Fin

Cerrar;

Fin;

Finalmente

Temporizador1.Enabled := Verdadero;

Fin

Fin ;

Fin;

Fin;

Finalmente