listview1.clear; with adoquery1 do begin Sql.text := 'Select * from table1'; Open ;
while not eof do begin with listview1.items.add do begin caption := fieldbyName('field1').asstring; subitems.add(fieldbyName('field2').asstring); subitems.add(fieldbyName('field3').asstring); subitems.add... end; Next; end; end;
Delphi(Pascal) code:
var Item: TListitem; begin ADOQuery1.First; while not ADOQuery1.Eof do begin Item:= ListView1.Items.Add; Item.Caption:= ADOQuery1.Fields[0].AsString; Item.SubItems.Add(ADOQuery1.Fields[1].AsString); ADOQuery1.Next; end;
