Delphi ListView快速操作通用实现

原作者: [db:作者] 来自: [db:来源] 收藏邀请

Delphi ListView快速操作通用实现

作者：成晓旭

众所周知，Delphi ListView类直接进行Add、Update、Delete操作的速度是比较慢的，尤其是当数据量较大时，比如数据量达到5000、10000、50000时，速度真是可以说是“慢得惊人”。其实快速操作的方法非常简单，就当大家都知道了。在本人的工作中，很多项目都用到ListView，并且对速度的响应要求比较高，于是发生了快速操作ListView的代码散布于多个项目大量模块中的问题，并且，当界面层数据显示要求发生改变时，自然发生“重复性代码的通用问题”。考虑到对以前版本的兼容性问题，也一直没有引用第三方的成熟组件。鉴于：“程序中的重复代码最易引发问题，必须消除”的实践经验，自己设计了一个比较通用的解决此类问题的类结构。当然，远不是什么“通用框架”了(眼下市面上很多人喜欢把自己做的无论什么东西通称为框架)。在采用此结构的项目中，很容易实现MVC模式，达到业务逻辑与界面显示分离的低级的、基础的要求。

(因为，目前CSDN的软件上传功能不可用，我只有将部分代码片断放在文档中，有需要完整源码者，请留言)

类层次结构：

ListView基础操作封装在LVControler包中，核心的类是TCXXLVControler：

(说明：LVControler类是被封装通用类结构内，外部用户是不需要了解和访问的，所以不作介绍。)

传统的ListView操作基类是TLVCommonClass，如果想用传统的方法增、删、改ListView中的数据，可以直接从此类继承。

源码如下：

具体的一个从此类继承下来的用于Socket界面显示的TLVSocket的类Overvivw如下：

源码如下：

快速的ListView操作基类是TLVQuickClass，如果想用快速方法增、删、改ListView中的数据，可以直接从此类继承。

主要方法：(可以看到，里面没有真正的Public方法，子类也仅需实现两个Protected的virtual方法)

源码如下：

此类中，要求每个具体应用的子类必须实现的方法仅有两个：CheckFound()：根据具体应用检测的数据是否已经存在；ProcOnDataDetail()：客户端ListView的OnData()事件的数据处理回调方法。下面是几个具体实现的子类的OverView：

具体的一个从此类继承下来的用于Socket界面显示的TLVQuickSocket的类Overvivw如下：

可以看出：子类实现了两个抽象的虚方法，其它的方法，都是根据业务需要，类用户自行增加的。

源码如下：

小结：

应用此类结构实现ListView快速数据操作的优势：

1、 可以快速实现MVC模式，达到界面显示与业务逻辑的分离。在Controllor类中，实例化数据显示子类，调用相应方法即可实现显示数据的增、删、改。

2、 与原始的快速方法相比，封装了内存数据List，大大简化了List对象的操作(尤其是当有很多相同或者类似数据要求在不同Form的ListView中显示时)，并减少了List的创建、数据操作、释放等操作时发生错误的可能性。

3、 简化了多个相同、类似数据显示的控制代码，针对每个份要显示的数据及ListView，只需要实例化一个显示子类，避免了直接应用原始的快速方法时，控制代码分散在每一个具体Form类中的问题。

4、 对显示数据的业务信息份进行了集中，当要求显示的信息发生变化时，只需在数据显示子类这一个类中更改即可。

此通用类结构仍有些不足之处，欢迎有兴趣的朋友继续完善：

１、每个应用层类的外部调用方式非常类似(请参考开发的示例源码)，表明，有些通用的方法没有进行更好的抽象。

２、快速访问基类对其子类的行为抽象不充分，导致子类的应用层调用代码非常类似。当初这样设计的目的是想保持类结构有充分的可扩展性。其实完全可以将基类进行改良：将抽象的虚方法更换成接口，这样，基类实现的更好的封装，并且更好地满足了“向稳定的方向依赖”和“针对接口编程”的设计原则。这样，应用层还是要实例化一个自己业务需要的类来实现此接口。但Delphi的接口用起来不像是真正的接口，通常要从TInterfacedObject等类继承，大大限制了类结构层次的演化。(因为在不支持多继承的语言环境中，如果还想增加更高层次的抽象就不那么容易了)。

３、当前的版本还没有提供针对某列进行数据排序的功能。

//------------------------------------------------------------------------------
//
//产品名称:成晓旭的个人软件Delphi源码库
//产品版本:CXXSoftdelphicodesourcelib1.0
//模块名称:Delphi之ListView显示控制类---外部应用层通用类定义单元
//模块描述:ListView快速操作方法类
//单元文件:unLVCommonClass.pas--->unLVQuickClass.pas
//开发作者:成晓旭
//备注:任何人使用此文件时,请保留此段自述文件,谢谢!
//开发时间:2005-09-26
//修改历史:2006-05-31
//修改描述:解决GetLVItemOrderByValue()的参数不灵活的问题
//并解决Method'Create'hidesvirtualmethodofbasetype'TComponent'的问题
//修改历史:2006-06-16
//修改描述:增加通过TList来高速增加、更新、删除数据
//先用吧,以后再优化和完善
//修改历史:2006-07-10
//修改描述:成功地将ListView的OnData事件的List对象移入此类中,并将其上移到其类
//修改历史:2006-07-11
//修改描述:重大重构:将此类分成两个类:TLVCommonClass-->TLVCommonClass和TLVQuickClass,
//以遵循SRP原则
//------------------------------------------------------------------------------
unitunLVQuickClass;

interface

uses
SysUtils,Classes,ComCtrls,Windows,Variants,
unLVControler;

const
SpecialItemOrder=-1;
CSImg_Normal=0;
CSImg_Running=1;

GetColumnOrder=0;
type
TLVQuickClass=class(TInterfacedObject)
private
cxxLVC:TCXXLVControler;
lvDataList:TList;

//为ListView的Item的Data属性查询关键数据在TList中的索引号
classfunctionGetListDataIndexByKey(constlistData:TList;constaKey:variant):integer;
//快速
procedureClearLVDataList();
protected
//注意:约定最后一项一定是ImageIndex
//tmpList:TStringList;
functionInitListViewColumns(constdisplayName:arrayofstring;
constdisplayWidth:arrayofinteger;
varlvTemp:TListView):boolean;

//子类必须实现
classfunctionCheckFound(constpData:Pointer;constaKey:variant):boolean;virtual;abstract;
classprocedureProcOnDataDetail(constpData:Pointer;varItem:TListItem);virtual;abstract;

//快速方法
//[注意:新方法中lvList不要求传递参数,保留以兼容旧客户端版本]
//将pData数据加入List中,实现向ListView增加数据行
functionAddItemDataToListView(constpData:Pointer;constdataNumber:integer;
varlvTemp:TListView):boolean;
//;varlvList:TList=nil):boolean;
//以aKey为关键值查找,并用pData数据更新List中满足条件的内存块,实现向ListView更新数据行
functionUpdateItemDataToListView(constaKey:variant;constpData:Pointer;constdataNumber:integer;
varlvTemp:TListView):boolean;
//;varlvList:TList=nil):boolean;
//以aKey为关键值查找,并用pData数据删除List中满足条件的内存块,实现向ListView删除数据行
functionDeleteItemDataToListView(constaKey:variant;constpData:Pointer;constdataNumber:integer;
varlvTemp:TListView):boolean;
//;varlvList:TList=nil):boolean;
//删除List中所有内存区,实现将ListView清空所有数据行
procedureDeleteAllListView(varlvTemp:TListView);

//ListVisw的OnData事件处理
procedureOnDataToListView(varItem:TListItem);
//ListVisw的OnData事件的ListCount
functionGetLVListCount():integer;
public
constructorCreate();overload;
destructorDestroy();override;
end;

implementation

...{TLVQuickClass}

functionTLVQuickClass.AddItemDataToListView(constpData:Pointer;
constdataNumber:integer;varlvTemp:TListView):boolean;
//;varlvList:TList):boolean;
var
pTemp:Pointer;
begin
//注意:要影响性能
//lvTemp.Items.BeginUpdate();
Result:=false;
ifNOT(Assigned(pData)andAssigned(lvTemp)andAssigned(lvDataList))thenExit;
//new(pTemp);
GetMem(pTemp,dataNumber);
lvTemp.OwnerData:=true;
CopyMemory(pTemp,pData,dataNumber);
lvDataList.Add(pTemp);
Result:=true;
//注意:要影响性能
//lvTemp.Items.Count:=lvList.Count;
//lvTemp.Items.EndUpdate();
end;

procedureTLVQuickClass.ClearLVDataList();
var
Loop:integer;
pTemp:Pointer;
begin
ifNOT(Assigned(lvDataList)and(lvDataList.Count>0))thenExit;
forLoop:=0tolvDataList.Count-1do
begin
pTemp:=(lvDataList.Items[Loop]);
ifAssigned(pTemp)then
FreeMem(pTemp);
end;
end;

constructorTLVQuickClass.Create;
begin
inheritedCreate();
cxxLVC:=TCXXLVControler.Create();
//tmpList:=TStringList.Create();
lvDataList:=TList.Create();
end;

procedureTLVQuickClass.DeleteAllListView(varlvTemp:TListView);
begin
ifNOT(Assigned(lvTemp)andAssigned(lvDataList)and(lvDataList.Count>0))thenExit;
lvTemp.OwnerData:=true;
lvTemp.Items.BeginUpdate();
while(lvDataList.Count>0)do
begin
Dispose(lvDataList[0]);
lvDataList.Delete(0);
end;
lvTemp.Items.Count:=lvDataList.Count;
lvTemp.Items.EndUpdate();
end;

functionTLVQuickClass.DeleteItemDataToListView(constaKey:variant;
constpData:Pointer;constdataNumber:integer;varlvTemp:TListView):boolean;
//varlvList:TList):boolean;
var
colIndex:integer;
begin
//注意:要影响性能
//lvTemp.Items.BeginUpdate();
Result:=false;
ifNOT(Assigned(pData)andAssigned(lvTemp)andAssigned(lvDataList)and(lvDataList.Count>0))thenExit;
colIndex:=GetListDataIndexByKey(lvDataList,aKey);
if(colIndex<>SpecialItemOrder)and(colIndex>=0)and(colIndex<=lvDataList.Count-1)then
begin
Dispose(lvDataList[colIndex]);
lvDataList.Delete(colIndex);
Result:=true;
end;
//注意:要影响性能
//lvTemp.Items.Count:=lvList.Count;
//lvTemp.Items.EndUpdate();
end;

destructorTLVQuickClass.Destroy;
begin
ClearLVDataList();
ifAssigned(lvDataList)then
FreeAndNil(lvDataList);
ifAssigned(cxxLVC)then
FreeAndNil(cxxLVC);
//ifAssigned(tmpList)then
//FreeAndNil(tmpList);
inheritedDestroy;
end;

classfunctionTLVQuickClass.GetListDataIndexByKey(constlistData:TList;
constaKey:variant):integer;
var
Loop:integer;
begin
Result:=SpecialItemOrder;
ifNOTAssigned(listData)thenExit;
iflistData.Count<=0thenExit;
forLoop:=0tolistData.Count-1do
begin
ifCheckFound(listData[Loop],aKey)then
begin
Result:=Loop;
break;
end;
end;
end;

functionTLVQuickClass.GetLVListCount():integer;
begin
Result:=0;
ifAssigned(lvDataList)then
Result:=lvDataList.Count;
end;

functionTLVQuickClass.InitListViewColumns(constdisplayName:arrayofstring;
constdisplayWidth:arrayofinteger;varlvTemp:TListView):boolean;
begin
Result:=false;
ifAssigned(cxxLVC)then
begin
cxxLVC.InitLVColumns(displayName,displayWidth,lvTemp);
end;
end;

procedureTLVQuickClass.OnDataToListView(varItem:TListItem);
var
pTemp:Pointer;
begin
//以后要移到类中,做成回调
ifNOTAssigned(lvDataList)thenExit;
iflvDataList.Count<=0thenExit;
ifItem.Index>lvDataList.CountthenExit;

pTemp:=lvDataList[Item.Index];
ProcOnDataDetail(pTemp,Item);

Item.ImageIndex:=1;
Item.Data:=pTemp;
end;

functionTLVQuickClass.UpdateItemDataToListView(constaKey:variant;
constpData:Pointer;constdataNumber:integer;varlvTemp:TListView):boolean;
//varlvList:TList):boolean;
var
colIndex:integer;
begin
//注意:要影响性能
//lvTemp.Items.BeginUpdate();
Result:=false;
ifNOT(Assigned(pData)andAssigned(lvTemp)andAssigned(lvDataList)and(lvDataList.Count>0))thenExit;
colIndex:=GetListDataIndexByKey(lvDataList,aKey);
if(colIndex<>SpecialItemOrder)and(colIndex>=0)and(colIndex<=lvDataList.Count-1)then
begin
CopyMemory(lvDataList[colIndex],pData,dataNumber);
Result:=true;
end;
//注意:要影响性能
//lvTemp.Items.Count:=lvList.Count;
//lvTemp.Items.EndUpdate();
end;

end.

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

matlab的cell数组发布时间：2022-07-18

使用MATLAB遍历指定的子文件夹及其下文件发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19165|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9981|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8320|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8690|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8634|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9650|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8617|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7994|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8648|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7531|2022-11-06

客服电话

电子邮件

Delphi ListView快速操作通用实现

请发表评论

全部评论

上一篇：

下一篇：

librespeed/speedtest: Self-hosted Speedt

avehtari/BDA_m_demos: Bayesian Data Anal

四维彩超怎么看性别？四维看男孩女孩诀窍

medfreeman/markdown-it-toc-and-anchor: m

C#Matlab混合编程类初始化问题解决方法

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053