能否像C#中那样,先将数据添加到Items中,然后让ListView指定呢?比如我有100条数据,但获取这100条数据比较耗时,就想先添加到items中然后让ListView.Assign指定?知道的朋友帮一下,如果有代码就更好了,谢谢!
解决方案 »
- 一个Zlib老问题了,卡住有段时间了,麻烦达人们帮忙解决.
- P2P应用中的UDP文件传输出现问题。。。想请帮一下,有点急~~
- DELPHI创建动态连接库出现指针错误是怎么回事?
- 关于Delphi打包问题?
- 程序退出后,托盘区的图标不能及时消失,大家来看看什么问题
- 请问Windows的字体怎样取得?
- CRC16算法,有一个C语言循环得出查表值,delphi上怎么写啊
- 高手指点!100元酬谢 急... 急... 在线等待.....
- 在.db数据库中,100个字段名算不算多?记录可能在2000到5000之间。请到另一帖子http://www.csdn.net/expert/Topic/127/127961.shtm上挂号分帐。
- 我在WIN98下为什么不能调DCOM的东西,不是说也可以么,??
- 大牛求助啊。。delphi查询数据库太慢,如何解决【附代码】
- delphi treeview 真是见鬼了
你把listview2填充好后,用listview1.assign(listview2);
var
lv2: TListView;// 填充一个动态创建的隐藏listview对象
procedure TForm1.btn1Click(Sender: TObject);
var
its: TListItems;
i: Integer;
begin
lv2.Free;
lv2 := TListView.Create(nil);
lv2.Hide;
lv2.Parent := Self;
for i := 0 to 99 do
begin
with lv2.Items.Add do
begin
Caption := '我是第' + Inttostr(i + 1) + '行';
SubItems.Add('我是第' + Inttostr(i + 1) + '行的子项1');
SubItems.Add('我是第' + Inttostr(i + 1) + '行的子项2');
end;
end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
lv2.free;
end;// assign 到显示的listview
procedure TForm1.btn2Click(Sender: TObject);
begin
lv1.Items.Assign(lv2.Items);
end;
太占资源。
有没有类似的类?
先将数据填充到类里,然后再指定给ListView
怎么做呢?能否给点代码?谢谢了
写一个能装Item的不就可以了。