Virtual Listview怎样实现，请各位帮帮忙!

[ZBYF]

用按钮实现查询数据库，然后加入道listview中，记录大约有10000条，listview显示的速度很慢，请各位给一个例子，谢谢了！

[码农天天向上]

你100道100道分批显示好不？

[码农天天向上]

例子稍等

[ZBYF]

可以，但怎样才能提高速度？谢谢！

[taber]

方式为自己加载数据，在事件里编程，delphi自带有例子，注意ownerdata设为true

[ZBYF]

请具体一点，如怎样加载数据，在那个事件里加？我是一个新手，您能举个例吗？谢谢！

[码农天天向上]

delphi 的例子有看头

[taber]

在ondata事件里：
if (Item.Index > FIDList.Count) then Exit;
with ShellItem(Item.Index)^ do
begin
Item.Caption := DisplayName;
Item.ImageIndex := ImageIndex;

if ListView.ViewStyle <> vsReport then Exit;

if not IsFolder(FIShellFolder, ID) then
Item.SubItems.Add(Format('%dKB', [Size]))
else
Item.SubItems.Add('');
Item.SubItems.Add(TypeName);
try
Item.SubItems.Add(ModDate);
except
end;

if Bool(Attributes and FILE_ATTRIBUTE_READONLY) then Attrs := Attrs + 'R';
if Bool(Attributes and FILE_ATTRIBUTE_HIDDEN) then Attrs := Attrs + 'H';
if Bool(Attributes and FILE_ATTRIBUTE_SYSTEM) then Attrs := Attrs + 'S';
if Bool(Attributes and FILE_ATTRIBUTE_ARCHIVE) then Attrs := Attrs + 'A';
end;
Item.SubItems.Add(Attrs);

[xthmpro_cn]

请参考Delphi的Demo：
E:\Program Files\Borland\Delphi6\Demos\Virtual Listview

[Cappuccino]

你向listview里面添加Items之前
先用ListView.Items.BeginUpdate;

添加结束后，在ListView.Items.EndUpdate;

这样可以大幅度提高速度，主要是放置在添加过程中ListView的刷新。

[g961681]

1.也可以先只导入第一层的数据。然后在展开第一层结点的时候，再导入该结点下的第二层数据。
2..BeginUpdate/EndUpdate也最好用一下！

[码农天天向上]

对对对，我以前一高手同事在TreeView里就用的动态查询展开！虽然那数据少得可怜：）