Insertar datos en un listview

[ebreton31]

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

[[Lepe]]

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

[ebreton31]

asi lo pude resolver gracias

 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;

[[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