说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在DELPHI中用线程排序

HTML文档下载 WORD文档下载 PDF文档下载
在DELPHI中用线程排序

在数据处理量很大的情况下,如何在数据处理的同时响应用户操作?Windows95/98和WindowsNT作为多线程的多任务操作系统,其调度单元是线程,即线程是系统分配处理器时间资源的基本单元,所以我们可以利用线程实现在处理大批量数据的同时响应用户操作。

DELPHI作为一个优秀的开发平台,对开发多线程应用程序提供了强有力的支持,即可直接利用32位Windows环境提供的Win32API接口函数CreateThread,也可利用DELPHI中提供的BeginThread函数。在下面例子中,正是使用了DELPHI提供的TThread类。

一.基本的方法如下:

1.从Tthread类派生一个新类。(创建TSortThread类)

2.定义新类的Create方法。

3.定义新类的Execute方法,并在Execute方法中插入线程运行时执行的代码。

4.引用类方法创建实例。

二.例子的详细代码及说明:

首先,新建一个单元,保存为mysort.pas.在此单元中,我们创建了一个TSortThread类,它从TThread类中继承而来,所以当我们在程序中创建这个类的一个实例时,也就是创建了一个新的线程。

接着,在该类中定义一个Sort方法,用来对数组进行排序,同时TSortThread类超越了TThread类的构造方法Create和Execute,在execute方法中,调用了对数组进行排序的Sort方法。具体代码如下:

unitmysort;

interface

usesClasses;//TThread类在Classes中被定义。

type

PSortArray=TSortArray;

TSortArray=array.[0..MaxIntdivSize

Of(Integer)-1]ofInteger;

{此处定义了TsortThread类}

TSortThread=class(TThread)

Private

{在TSortThread类中定义了如下几个私有变元}

FSortArray:PSortArray;

FSize:Integer;

FA

FB

FI

FJ:Integer;

Protected

{类TSortThread超越了类Tthread的Execute方法}

procedure Execute;override;

{类TsortThread添加了一个Sort方法}

procedure Sort(varA:arrayofInteger);

public

{类TSortThread超越了类Tthread的构造方法}

constructorCreate(varSortArray:arrayofInteger);

end;

implementation

constructorTSortThread.Create(varSortArray:arrayofInteger);

begin

FSortArray:=@SortArray;

FSize:=High(SortArray)-Low(SortArray)+1;

FreeOn Terminate:=True;

inheritedCreate(False);

end;

{当线程开始时,Execute方法将被调用。}

procedure TSortThread.Execu

te;

begin

Sort(Slice(FSortArray

FSize));

end;

{下面实现了冒泡法排序}

procedure TSortThread.Sort(varA:arrayofInteger);

var

I

J

T:Integer;

begin

for I:=High(A)downto Low(A) do

for J:=Low(A)to High(A)-1 do

if A[J]>A[J+1] then

begin

T:=A[J];

A[J]:=A[J+1];

A[J+1]:=T;

if Terminated then Exit;

end;

end;

end

最后,在用户应用程序的implementation处加入usesmysort

在执行排序的地方加入TQuickSortthread.Create(SortArray),其中SortArray为一实际的数组。这样就可以用线程实现排序,在排序过程中,用户不必等到排序结束就可以执行其它操作。这种用多线程实时响应用户操作方法在涉及大量数据处理的应用程序中显得尤为重要。

【CTO讲堂】全数据驱动产品优化,美国互联网公司A/B测试经验分享 《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 一个简单的语法问题想跟大家讨论 强烈推荐 JBuilder X 该用规则还是默认还是其他 IE6中文本输入框只读,看不到超过的内容(急!!) 问行家-------如何使用GraphEdit工具创建一个把RGB24得数据压缩为MPEG1文件的图表- 如下程序:编译时有1个错误, 在JBuilder中这是什么错误? 急,SOCKET连接问题 如何获取硬盘系列号以及CPU系列号? 我刚被提拔为广播站站长,第一次开会的时候应该讲些什 安卓手机右上角的图标,一个电话,下面五个点,再一面 谁拿了仓库的粮食 镀ito膜,设备漏气,镀出的玻璃是什么状态 臭氧属于 1.纯净物2.混合物3.稀有气体请详细说 建筑物起火在几分钟内是灭火的最好时机,超过这个时间 可用于扑灭活泼金属燃烧引起的火灾的物质是A 二氧化 开会的时候领导说下午好我们应该怎么说第一天上班,经 车间主任管理流程怎么写 院士揭露伪大师治病行骗:治疗效果系心商合杭高铁拿到准生证 安吉将结束不通杭州地铁3号线为啥比原先的规划短了十已婚男连续胸袭女同事遭解雇 自称“没国考报名结束平均70人争1个岗位 湖老板走佬 拖欠3年工资 法院变卖资产女人 这些贴士别全信混合型社区中介侵吞自考费学员心血全白费加拿大历史图片展台山开展在修真文明的悠闲生活终极军事帝国撕天风雨传说钻石乞丐太行山旅游刘公岛水师学堂旅游刘公岛动物园旅游中国甲午战争博物馆旅游南海观音文化苑旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘