扩展 delphi 线程 使之传递参数.（给匿名线程增加参数）

本文整理自网络，侵删。

 新delphi的线程TThread有了CreateAnonymousThread方法,如果再为它加一个可传递的参数不就更好了吗?代码如下:
复制代码复制代码  TAnonymousThreadX<T> = class(TThread)  private    FProc: TProc<T>;    AValue:T;  protected    procedure Execute; override;  public    constructor Create(const AProc: TProc<T>;ProcPar:T);  end;
  TThreadHelper= class helper for TThread    public      class function CreateAnonymousThreadX<T>(const ThreadProc: TProc<T>;proPar:T): TThread; static;  end;
implementation
{ TAnonymousThreadX }
constructor TAnonymousThreadX<T>.Create(const AProc: TProc<T>;ProcPar:T);begin  inherited Create(True);  FreeOnTerminate := True;  FProc := AProc;  Avalue:=ProcPar;end;
procedure TAnonymousThreadX<T>.Execute;begin  inherited;  FProc(Avalue);end;
{ TThreadHelper }
class function TThreadHelper.CreateAnonymousThreadX<T>(const ThreadProc: TProc<T>; proPar: T): TThread;begin  Result := TAnonymousThreadX<T>.Create(ThreadProc,proPar);end;复制代码复制代码代码挺简单的,就是传递了一个方法及参数. 在线程里调用就是了.
将以上代码保存在一个单元中,引用了之后,就可以这样用了:
复制代码复制代码//这样使用TThread.CreateAnonymousThreadX<Integer>(TestX,1234).Start;
//这是TestX方法体procedure T***.TestX(Avalue: Integer);begin  btnContinue.Caption:=IntToStr(Avalue);end;

//如果不想定义TestX方法,也可以如下方法直接调用  TThread.CreateAnonymousThreadX<Integer>(  procedure(Avalue:Integer)  begin    btnContinue.Caption:=IntToStr(Avalue);  end  ,12345).Start;复制代码复制代码如果执行线程的方法有两个,三个参数,对照着改就是了.
这样用线程是不是更简单一些了呢.
http://www.cnblogs.com/ttgss/p/3334723.html 

相关阅读 >>

Delphi 获取网卡信息

Delphi xe3里判断网络是否连接成功

Delphi得到cpu的序列号

Delphi 如何判断某一窗口最大化

Delphi xe5 unicodestring的由来

Delphi raise 语句: 抛出异常

Delphi 在指定图片上绘制透明文字

Delphi indy控件实现网络验证与asp通信

Delphi xe7实现手机上获取wifi信息的程序

Delphi的tservice的windows�入桌面切�q

更多相关阅读请进入《Delphi》频道 >>