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;

//添加数据的时候

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;

推荐分享