用代码慢慢加吧!
假设ListView上的列已经全部建立,按次序对应Query里的所有记录,而且所有的
字段值都可以用Query.Fields[i].AsString来表示就可以了,那么代码可以如下:
var
nFieldIndex : Integer ;
nItem: TListItem ;
begin
query.Fiest ;
while not query.Eof do
begin
nItem := ListView.Items.Add ;
nItem.Caption := query.Fields[0].AsString ;
for nFieldIndex := 1 to query.Fields.Count-1 do
nItem.SubItems.Add(query.Fields[nFieldIndex].AsString) ;
end ;
end ;