扩展 delphi 线程 使之传递参数.
新delphi的线程TThread有了CreateAnonymousThread方法,如果再为它加一个可传递的参数不就更好了吗?代码如下: TAnonymousThreadX = class(TThread) private FProc: TProc; AValue:T; protected procedure Execute; override; public constructor Create(const AProc: TProc;ProcPar:T); end; TThreadHelper= class helper for TThread p...
