procedure TForm1.Button1Click(Sender: TObject);
var
Item : TListItem;
begin
Item:=self.ListView1.Items.AddItem(nil,0);
Item.Caption:='aa';
end;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select 字段 form 表')
open;
last;
while not bof do
begin
listview.tiems.add.caption := '';
prior;
end;
end
有一个sort函数的,你可以设置反向排序呀
使用Item和SubItem属性,很容易就添加