设为首页 加入收藏

TOP

扩展 delphi 线程 使之传递参数.
2014-01-14 21:37:08 来源:互联网 作者: 【 】 浏览:1276次 评论:0

新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;
复制代码

如果执行线程的方法有两个,三个参数,对照着改就是了.

 

这样用线程是不是更简单一些了呢.

您看到此篇文章时的感受是:
Tags: 责任编辑:administrator
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
分享到QQ空间
分享到: 
上一篇没有了 下一篇DELPHI实现关闭指定进程,自身防杀

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

相关栏目

最新文章

图片主题

热门文章

推荐文章

相关文章

广告位