其他分享
首页 > 其他分享> > [转]lazarus中不支持匿名方法的解决方案

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

作者:互联网

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

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

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.

 

标签:begin,end,解决方案,TForm1,匿名,lazarus,Form1,TThread,procedure
来源: https://www.cnblogs.com/qiufeng2014/p/16579802.html