Delphi_多线程实例
1星 需积分: 10 36 浏览量
2011-10-28
17:35:45
上传
评论
收藏 30KB DOC 举报 
Delphi 多线程实例
下面笔者将介绍一个简单的实例，解释和说明前面所述的内容。
1） 建立 Form，在其中建立两个按钮“开始采集” 和“停止采集”，添加一个 PaintBox1。
2） 建立一个新的单元，在其中输入以下代码：
unit CollectThread;
interface
uses
Classes,SysUtils,stdctrls,Graphics;
type
TCollectDataThread = class(TThread)
private
FPreSetTime:Word;
FUsedTime:integer;
FCanvas:TCanvas;
protected
procedure Execute; override;
procedure ShowData;
public
CollectData:array[0..1023]of integer;
constructor Create(PresetTime:Word;Canvas:TCanvas);
end;
implementation
{TCollectDataThread}
constructor TCollectDataThread.Create(PreSetTime:Word;Canvas:TCanvas);
var i:integer;
begin
for i:=0 to 1023 do CollectData[i]:=0; // 给数据赋初值
FCanvas:=Canvas;
FPreSetTime:=PreSetTime; // 预置采集次数
FUsedTime:=0; // 已经采集的次数
inherited Create(true);
FreeOnTerminate := True; //当线程终止时自动释放该线程
end;
procedure TCollectDataThread.Execute;
var
flag:Byte;
address:Byte;
i:integer;
begin
while FUsedTime < FPresetTime do
begin
资源评论
hpygzhx5202012-11-27文档已经损坏
zyk1863
- 粉丝: 0
- 资源: 4
最新资源
- mongodb数据库基本操作.pdf
- C#，布尔可满足性问题（Boolean Satisfiability Problem）算法与源代码
- C#，回文分割问题（Palindrome Partitioning Problem）算法与源代码
- C#，煎饼排序问题（Pancake Sorting Problem）算法与源代码
- C#，排列组合的堆生成法（Heap’s Algorithm for generating permutations）算法与源代码
- C#，老鼠迷宫问题的回溯法求解（Rat in a Maze）算法与源代码
- 6693eeb8d683458a07938615fba9e68f.apk
- C#，数值计算，解微分方程的龙格-库塔二阶方法与源代码
- C#，数值计算，用割线法（Secant Method）求方程根的算法与源代码
- C#，子集和问题（Subset Sum Problem）的算法与源代码
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
