Delphi异步编程：匿名线程与匿名方法

异步编程，是项目中非常有用的而且常用的一种方法，大多以线程实现。

而Delphi传统方法使用线程略为烦琐，好在其后续版本中，提供一些方法，简化一些操作。

 

几个概念：

匿名线程：TAnonymousThread，Delphi XE始支持。

匿名方法：reference to procedure|function，Delphi 2009 始支持。

 

匿名线程

其实只是创建一个线程，传入一匿名方法并执行，实现倒也简单，我就移其入Dephi 2009中。其实义如下：

  TAnonymousThread = class(TThread)
  private
    FProc: TProc;
  protected
    procedure Execute; override;
  public
    constructor Create(const AProc: TProc);
  end;

{
     TAnonymousThread }

constructor TAnonymousThread.Create(const AProc: TProc);
begin
  inherited Create(True);
  FreeOnTerminate := True;
  FProc := AProc;
end;

procedure TAnonymousThread.Execute;
begin
  FProc();
end;

这样ÿ