Insertar datos en un listview
 

buenos dias alguien me podria decir como insertar datos de una tabla de en un listview
todo lo hagon en tiempo de ejecucion
QPrinsipal.SQL.Text := 'Select * from Cotizaciones '
mi listview esta en ViewStyle = vsReport
gracias

Precisamente hace poco has preguntado el paso inverso, deberías entender ese código, solo tienes que añadir dos líneas más para crear cada item del ListView, e invertir el orden de esas líneas. F1 debería bastar.

Saludos

gracias
 

asi lo pude resolver gracias

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