ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

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

2022-08-12 14:30:09  阅读:142  来源: 互联网

标签:begin end 解决方案 TForm1 匿名 lazarus Form1 TThread procedure


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

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有