xml地图|网站地图|网站标签 [设为首页] [加入收藏]

永利402com官方网站:扩展 delphi 线程 使之传递参数.

新delphi的线程TThread有了CreateAnonymousThread方法,如果再为它加一个可传递的参数不就更好了吗?代码如下:

  TAnonymousThreadX<T> = <T>
     Execute; 
     Create( AProc: TProc<T>

  TThreadHelper=  helper 
        CreateAnonymousThreadX<T>( ThreadProc: TProc<T>



 TAnonymousThreadX<T>.Create( AProc: TProc<T>
  === TAnonymousThreadX<T>


  TThreadHelper.CreateAnonymousThreadX<T>( ThreadProc: TProc<T>= TAnonymousThreadX<T>;

代码挺简单的,就是传递了一个方法及参数. 在线程里调用就是了.

将以上代码保存在一个单元中,引用了之后,就可以这样用了:

//<Integer>(TestX,// T***=//<Integer>=).Start;

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

 

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

: TAnonymousThreadXT = T Execute; Create( AProc:...

本文由永利澳门平台发布于计算机资讯,转载请注明出处:永利402com官方网站:扩展 delphi 线程 使之传递参数.

您可能还会对下面的文章感兴趣: