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

在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为一实际的数组。这样就可以用线程实现排序,在排序过程中,用户不必等到排序结束就可以执行其它操作。这种用多线程实时响应用户操作方法在涉及大量数据处理的应用程序中显得尤为重要。

Delphi3的DBGrid中的下拉列表和查找字段编程方法 DELPHI常见问题 Delphi的竖排标签 DELPHI构件制作方法 DELPHI控件Tweblabel的编制 DELPHI中MEMO组件的光标定位 Delphi中RichEdit的奥妙 Delphi中TApplication类 Delphi中日期时间输入的简洁方法 delphi中怎么调用interbase数据库? Memo的Undo功能-Delphi资料 RECT在Delphi中的灵活使用 StringGrid制作只读列-Delphi资料 TADOQuery下主明细表其属性关系如何设置,如何保存主表和明细表?-Delphi资料 TBatchMove用法-Delphi资料 TMemo的真正插入字符-Delphi资料 TREEVIEW的使用-Delphi资料 TreeView在电信综合统计管理系统中的应用-Delphi资料 VB6.0动态加载ActiveX控件漫谈-Delphi资料 捕捉来自 Thread 的异常-Delphi资料 定制Speedbar-Delphi资料 动态产生构件并相应事件-Delphi资料 对Borland可视部件的一处改进-Delphi资料 控件使用技巧-Delphi资料 改变VCL的行为--一个使用可视化元件的实例-Delphi资料 具有不同字体的列表框-Delphi资料 快速大量地更改控件内容-Delphi资料 快速动态创建MenuItem-Delphi资料 利用Delphi 5中调用Excel 97 利用Delphi的Tbitmap控件抓取屏幕图象 利用delphi美化你的菜单 Bad Dream about a Coffin 我要用delphi作个学生管理系统,大家给点意见 有声卡,为何没有声音,具体操作如何?一定加分!!!! What a country ! 交流交流多线程程序的开发经验好吗? 谁有关于ejb方面的书或者资料推荐??一定给分 Women over 50 谁编个例程给我,这50分就是谁的了。题目不难,相信高手5分钟就能做完。 jdk1.3+jswdk1.0.1 的JAVAbeans .class文件要放哪啊????? God painted it 提问:猪真的很幸福吗?要求 wywq(幸福如猪) 回答。 哪位高手做过可视电话的? VB能不能实现“一个结构体类型的数组当参数传递 Forgotten Birthd Husbands Overheard Fine 有个在多线程中使用ADO的问题。请高手们帮忙。 Suede jacket 可能是installshield的Bug! 我想去北京找个工作,请大家帮帮忙,提供点信息! 装了“猫”为何还有630错误(电话线也接了)? excel 問題 各位:数据窗口有一检索变量,现在想retrieve出所有的记录,检索变量应该怎样赋值?谢谢! linux和windows是不是只能分别装在两个分区中 关于图像处理:如何使图像锐化与柔化? 帮帮我啦! 我在使用jdbc读取数据的时候,碰到了内存溢出的问题,怎么回事呀 哪里有餐饮系统的介绍?90不够的话,先欠着,多谢了! 在两个ASP程序之间怎么传递参数? ccl2000(不帅不酷的Goblin):其实你真的很酷很帅的。 大侠帮帮我啦(关于SQL语句的问题) 关于Vxd的编译问题 用VC编的程序,一运行就说“执行非法操作”,问题出在哪里?? SQL Server有病 一个关于api的简单问题 《易佳自定义报表》用后很失望 请教各位高手一个有关报表控件的问题? 小妹向大家请教!可不可以直接在本页的代码中改变该页面浏览时的属性? 家菲猫:惊悉你昨晚惨遭不幸,被窃大量钱物,今日一天无法和你联系上,估计手机和通信录已全部丢失,如果今晚无法来我处,明早8点以前请务必携猫 MM 赶到上海南站!!! MDI文档模板和应用程序调用问题请教,大侠请进! 一个c++问题???? 请问各位高手,sqlserver2k加密的存储过程是否能解密,看到它的实际的语句?可否能跟踪加密的存储过程? 我下载了一个formula one ,发现她的界面跟excel差不多,在pb中怎么用? 高分求XML 高级编程(足本)[01.pdf到10.pdf]!!!! 招聘汇编程序员 ie 中true dbgrid 的问题 急招聘汇编程序员 关于WINDONWS文件夹 WIN2000有关用户管理的问题 谁可以告诉我怎么调用已有的EXE文件。 有谁知道广州或南海的高级程序员考试的辅导点 实验室用铜和稀硝酸制取NO,反应过程中有6.3gHNO3被还原,则参加反应的铜是多少 异丙醇 和 正丙醇 都能用来制造 丙烯 吗?制法相同?用硫酸的!制丙烯啊!!!! 溴水加入到直馏汽油这个会发生反应吗.发生反应是使溴水褪色么..还是说他们是萃取的关系... 丙炔制丙烯方程式 由丙烯转化为异丙醇 裂解和裂化哪个是深度裂化 请问丙炔和丙烯的电子式怎么写?RT 求2-丙醇制丙烯的方程式 环烷烃是不是饱和烃?如果是,为什么他有一个不饱和度? 丙烯和丙炔怎样鉴别最好能有化学反应式, 由丙烯制甘油 链状烷烃叫烷烃?环状烷烃叫环烷烃? 怎样区别丙炔和丙稀 由丙烯制备丙三醇.需要经过取代,加成,取代.三步.为什么第二步和第一步不能调换. 既然饱和烃就是烷烃,而环烷烃不是烷烃,为什么环烷烃是饱和烃? 丙炔与一分子溴化氢反应制2-溴丙烯为什么用HgBr2作催化剂 用丙烯为原料制配聚丙烯腈的化学方程式,选用必要的无机试剂 含有5个碳原子的烷烃,经催化裂化后生成的烷烃最多有几种 丙酮如何生成2-羧基丙烯 用丙烯为原料制配聚丙烯腈的化学方程式,可以选用必要的无机试剂 环烷烃是饱和烃吗 丙烯醛和丙酮在NaoH作用下生成什么 丙烯制备丙三醇的化学反应方程式 催化裂化反应为什么原料性质变重,反应温度上升 NaOH能与哪些官能团反应?rt,我一直搞不懂NaOH会和哪些官能团发生怎样的反应,快高考了, 丙烯、淀粉、醋酸钠、乙酸乙酯谁和水反应只生成一种物质 催化裂化分馏塔顶压控多少有什么决定 有机化学中哪些官能团和氢氧化钠反应哪些官能团和氢氧化钠反应,和钠反应,和碳酸钠反应,和碳酸氢钠反应? 苯丙烯和水反应生成什么 水溶液中R值是什么意思? 有机化学中,能与氢氧化钠溶液反应的官能团有哪些? 丙烯与水发生加成反应需要什么条件? Excel添加趋势线中的R平方值和截距分别是什么意思? 高中有机化学中,那些能和NaOH发生水解反应 丙烯与水反应 用R语言估计参数值 请帮忙解释下面这段R语言程序每句的含义,> N x1 x2 n pai for(i in 1:N){+ x1 苯和丙烯制苯酚和丙酮的化学方程式 丙烯和氧气反应方程式,它们会反应么、生成水和二氧化碳 已知定义在R上的奇函数f(x)满足f(x+2)=-f(x),求f(6)的值 有机化学系统命名 :CH3CH2C(CH3)2C(CH3)=CHCH2CH(CH3)CH3我命名的是:2,5,6,6-四甲基-4-辛烯 (不用考虑Z和E的情况) 书上的答案是3,3,5,7-四甲基-4-锌烯.请问我错在哪里了?我是按照最低序列取的 在保 下列物质的制取中,不能直接用乙烯作原料的是?聚乙烯 聚氯乙烯 二氯乙烷 溴乙烯 f(x)是定义在R上的奇函数,对任意∈R,总有f(x+3/2)=-f(x),则(-3/2)的值为多少 丙酮怎么合成(CH3)3CCOOH的? 制取下列物质时,不能用乙烯做原料的是 A.聚乙烯 B.聚氯乙烯 C.氯乙烷 D.1,2-二溴乙烷 对于碳二加氢脱炔过程,为什么把催化剂用于前加氢 如何给有机物 CH3CH2C(CH3)2C(CH3)(C2H5)H 正确命名呢? 制取下列物质时,不能用乙烯作原料的是 A.CH3CH2CL B.聚氯乙烯 C.聚乙烯 D.CH2Br-CH2Br答案是选B 为什么? 对于碳二加氢脱过程,为什么把催化剂不能用于前加氢 丙烯合成聚丙烯的反应方程式是这样写nCH3-CH2=CH2→—〔-CH2-CH2〕n—然后再ch2的下面加个甲基这样写对不对?nCH2=CHCH3→[ch2-ch]n|ch3但是也有这么写的?究竟哪个是对的 请问由于工作需要经常接触液化气,重芳烃,汽油,轻芳烃等化工原料,对身体有什么伤害?请问由于工作需要经常接触液化气,C4,石脑油,重芳烃,汽油,富气,干气,轻芳烃等化工原料,对身 什么叫加氢裂化? 丙烯加聚反应生成聚丙烯化学方程式是什么? 我骑摩托车 不加汽油 ,直接用轻芳烃代替 行么 “加氢裂化装置”如何翻译成英语 转化 异丙醇为什么消去反应后,丙烯与HCI加成,再与NaOH取代.而不与水直接加成 直流汽油中的芳香烃是什么样的?能使酸性高锰酸钾褪色吗,能使溴水褪色吗? 什么是催化裂化汽油求答案 在实验室制取NO,和NO2气体时,分别用什么来收集 怎样用丙烯制作正异丙醇?最好把过方程式写下! 请教一个汽油芳香烃的问题我想问一下,比如93#汽油和0#柴油相比,哪个芳香烃含量更低些,大概能低多少呢?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn