Delphi ListView高速添加数据


本文整理自网络,侵删。

 
Type //定义个
  PFileListItem = ^TFileListItem;
  TFileListItem = Record
    szName :String;
    szSize :String;
  End;
 
Var //来个变量
  FFileItemList  :TList;
 
Procedure ClearItemList();
Var //清空链表
  I :Integer;
begin
  For I := 0 to FFileItemList.Count-1 do
  begin //释放New出来的内存但是注意 Dispose不会直接把内存还给系统而且等待下一次New调用
    Dispose(PFileListItem(FFileItemList[I]));
  end;
  FFileItemList.Clear;
end;
 
//添加 ListView Data事件 并将ListView的 OwnerData 属性设置为 True
Procedure TForm.ListViewData(Sender: TObject; Item: TListItem);
begin
  With PFileListItem(FFileItemList[Item.Index])^ do
  begin
    Item.Caption := szName;
    Item.SubItems.Add(szSize);
  end;
end;
 
//添加数据的时候
 
Var
  pFileItem  :PFileListItem;
  I          :Integer;
Begin
  ClearItemList();
   
  LockWindowUpdate(ListView.Handle); //通过句柄锁住ListView防止刷新
   
  For I := 0 To 102400 Do
  Begin
    pFileItem := New(PFileListItem);
    pFileItem.szName := '这是文件名';
    pFileItem.szSize := '1024Kb';
     
    FFileItemList.Add(pFileItem); //添加到链表
  End;
   
  ListView_File.Items.Count := FFileItemList.Count;
 
  LockWindowUpdate(0); //解锁
End;

相关阅读 >>

Delphi'控件的相对坐标与屏幕坐标转换

Delphi webbrowser 滚动条的去除、边框去除

Delphi tstream详解

Delphi 设置开机自动启动函数

Delphi中webbrowser自动登录路由器网页

Delphi字符串拆分(字符数限制)

Delphi 的编译指令(1): $define、$undef、$ifdef、$else、$endif

Delphi 2009 之 tstringbuilder 类[4]: insert 与 remove

Delphi strutils.reversestring - 翻转字符串

Delphi 正则表达式在每行开头插入行号

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...