Ver Mensaje Individual
  #4  
Antiguo 28-11-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Pues sinceramente me alegro, si no tienes inconveniente, me gustaría contribuir con una pequeña optimización:
Código Delphi [-]
 QCotizaD.DisableControls;
 try
 QCotizaD.First;
  while not QCotizaD.Eof do
  begin
    Item := JvListView1.Items.Add;
    Item.Caption :=  QCotizaD.FieldByName('claveProd').AsString;
    Item.SubItems.Add(QCotizaD.FieldByName('Descripcion').AsString);
    Item.SubItems.Add(QCotizaD.FieldByName('Cantidad').AsString);
    Item.SubItems.Add(FormatFloat(' ##,###.00', QCotizaD.FieldByName('PrecioVenta').AsFloat));
    Item.SubItems.Add(FormatFloat(' ##,###.00',QCotizaD.FieldByName('Total').AsFloat));
    QCotizaD.Next;
  end;
finally
  QCotizaD.EnableControls;
end;

Tal y como dice la ayuda, al no tener que "sincronizar los controles dbaware con los datos actuales de la consulta", el bucle se ejecuta más rápido.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita