[转]lazarus中不支持匿名方法的解决方案

lazarus目前不支持匿名方法，在不继承线程的情况下，使用匿名线程或TThread.ExecuteInThread时，需要单独写两个方法：一个给TThread.ExecuteInThread用，另一个给同步用。感觉比较麻烦，并且可读性略差。

经过测试，下面代码的解决方案感觉好一些。

注：从这https://forum.lazarus.freepascal.org/index.php/topic,59468.0.html了解到fpc3.2.4已支持匿名函数，如果在产生环境下使用，建议等下一主版发布更稳妥。

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  { TForm1 }

  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

function MakeProc(ProcPtr: Pointer): TThreadMethod;
begin
  Result := TThreadMethod((@ProcPtr)^);
end;

{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);

  procedure SyncProc;
  begin
    //Form1是必须的
    Form1.Label1.Caption := DateTimeToStr(Now);
  end;

  procedure NestedProc;
  begin
    //Form1是必须的
    while not Form1.CheckBox1.Checked do
    begin
      TThread.Synchronize(nil, MakeProc(@SyncProc));
      TThread.Sleep(500);
    end;
  end;

begin
  TThread.ExecuteInThread(MakeProc(@NestedProc));
end;


end.