Foros Club Delphi - ListView codigo para cargar datos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - ListView codigo para cargar datos (https://www.clubdelphi.com/foros/showthread.php?t=58437)

ListView codigo para cargar datos

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.

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):

Código:

 

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