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 ListView高速添加数据

相关推荐

评论
