第一次注释掉Lv1的循环、运行Lv2的代码、

第二次注释掉Lv2的循环、运行Lv1的代码、

具体运行速度、完全不用计时、显而易见、在我的电脑上、Virtual ListView的速度几乎是一瞬间就好了

不过蛮奇怪的、我又用VB做了下实验、VB的ListView是ActiveX的、在IDE下添加100000条记录、速度也蛮快的、大概在我的电脑上是2.5s左右、这是IDE下的速度、如果是生成EXE再运行应该是可以在1s以内的、这个速度远远大于Delphi中的Vcl ListView....看来这个效率损耗在VCL里挺大的、、

仅以此做记录、以后不要忘记了ListView的这种用法、、

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) lv1: TListView; lv2: TListView; procedure FormCreate(Sender: TObject); procedure lv2Data(Sender: TObject; Item: TListItem); private { Private declarations } public { Public declarations } end; var Form1: TForm1; s:TStringList; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var Lv1Timer,Lv2Timer:Cardinal; nLoop:Cardinal; const AddStr='Test'; LoopTimes=100000; begin s:=TStringList.Create; lv1.ViewStyle:=vsList; lv2.ViewStyle:=vsList; Lv1Timer:=GetTickCount; //for nLoop := 1 to LoopTimes do //第一次运行、注释掉这两行、体验下速度 // lv1.Items.Add.Caption:=AddStr + IntToStr(nLoop); Lv1Timer:=GetTickCount - Lv1Timer; Lv2Timer:=GetTickCount; lv2.OwnerData:=True; //for nLoop := 1 to LoopTimes do //第二次运行、注释掉这两行、看看Lv1是什么速度 // s.Add(AddStr + IntToStr(nLoop)); lv2.Items.Count:=LoopTimes; Lv2Timer:=GetTickCount - Lv2Timer; //s.Free; ShowMessage('Time Out:' + #13#10 + //这个计时对于Lv2来说是不准确的、 'Lv1:' + IntToStr(Lv1Timer) + ' ms' + #13#10 + //不过这个明显的速度差异、 'Lv2:' + IntToStr(Lv2Timer) + ' ms');//人也可以感觉出来了 end; procedure TForm1.lv2Data(Sender: TObject; Item: TListItem); begin Item.Caption:=s[Item.Index]; end; end.