Delphi 的多线程已经非常易用了
来源:互联网 发布:天原集团历史交易数据 编辑:程序博客网 时间:2024/04/29 21:27
现在, Delphi 的多线程已经非常易用了!
先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):
{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject);begin MyMethod;end;
修改为多线程(只修改一行代码):
procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;procedure TForm1.Button1Click(Sender: TObject);begin TThread.CreateAnonymousThread(MyMethod).Start; //!!!end;
代码分析:
1、TThread 现在增加了许多 class 方法(直接通过类名调用的方法), TThread.CreateAnonymousThread() 就是比较有用的一个.
2、顾名思义, CreateAnonymousThread 是建立匿名线程对象, 它的参数是我们需要在线程中执行的方法.
3、但 CreateAnonymousThread 建立线程后是挂起的, 需要手动运行它; 后面的 Start 方法就是用来唤醒线程的.
4、(以前)唤醒线程还可以使用 Resume 方法或 Suspended 属性(Suspended := False;); 但它们即将被废弃了, 现在应使用 Start 来启动线程.
CreateAnonymousThread 的参数类型 TProc 是匿名方法(reference), 所以代码可以简写为:
procedure TForm1.Button1Click(Sender: TObject);begin TThread.CreateAnonymousThread( //直接写入方法体 procedure var i: Integer; begin for i := 0 to 500000 do begin Canvas.Lock; Canvas.TextOut(10, 10, IntToStr(i)); Canvas.Unlock; end; end //此处无分号 ).Start;end;
延时执行:
var myThread: TThread;procedure TForm1.FormCreate(Sender: TObject);begin myThread := TThread.CreateAnonymousThread( procedure var i: Integer; begin for i := 0 to 500000 do begin Canvas.Lock; Canvas.TextOut(10, 10, IntToStr(i)); Canvas.Unlock; end; end );end;procedure TForm1.Button1Click(Sender: TObject);begin myThread.Start;end;
- Delphi 的多线程已经非常易用了
- 现在, Delphi 的多线程已经非常易用了!
- 现在, Delphi 的多线程已经非常易用了
- 现在, Delphi 的多线程已经非常易用了!
- 现在, Delphi 的多线程已经非常易用了!
- Delphi 2005的30天试用版已经可以下载了。
- 看到xml的时候我已经基本非常清楚元素和方法的区别了
- 一段检测当前进程是否已经在运行了的代码,非常实用!
- embarcadero公司已经放出了delphi 64bit编译器的测试版
- [Delphi]Delphi的多线程编程
- [Delphi]Delphi的多线程编程
- php批量删除bom头,经常弄导出excel的也看看了啊!(已经测试非常管用)
- android 系统下要编写Android.mk来生成相应的库文件已经非常模板化了
- delphi的多线程编程
- delphi的多线程编程
- delphi的多线程编程
- Delphi的多线程知识
- Delphi的多线程
- spring 定时器 cron表达式格式详解
- 背包类型题
- 在Vi中查找目标字段【UNIX晓习笔记】
- return语句
- Instagram 代码背后的免费午餐(续)
- Delphi 的多线程已经非常易用了
- android 使用AsyncTask代替thread进行网络请求
- peerSim配置文件解析
- 在线练习unix网站地址
- Spring小结
- STM32(Cortex-M3)中的优先级概念
- 在RHEL 5.3(Tikanga)上配置Apache + FastCGI(mod_fastcgi) + PHP
- 虚函数和纯虚函数的作用与区别
- 判断Shift,Alt,Ctrl是否被按下