Insertar datos en un listview

[[Lepe]]

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