ListView codigo para cargar datos

[locotenentul]

Hola foro,

Hay un codigo completo Delphi para cargar datos en un listview como si fuera un dbgrid apartir de una query?
He buscado mucho y solo encuentro fragmentos de codigo que al final no van bien.

Gracias.

[ElKurgan]

Prueba con algo parecido a esto (suponiendo que el formulario se llame Form1, el ListView se llame ListView1 y la Query se llame Query1, y el ListView esté en modo vsReport):


procedure TForm1.CargarListView;
var
AItem: TListItem;
begin
ListView1.Clear;
Query1.First;
While not Query1.Eof do
begin
AItem := ListView1.Items.Add;
AItem.Caption := Query1.Fields[0].AsString;
AItem.SubItems.Add(Query1.Fields[1].AsString);
AItem.SubItems.Add(Query1.Fields[2].AsString);
Query1.Next
end;
end;


Espero que te sirva.
Un saludo