DELPHI XE 匿名函数的应用(同h5编程中js的调用)

最新推荐文章于 2024-11-21 19:00:37 发布

原创最新推荐文章于 2024-11-21 19:00:37 发布 · 376 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

delphi

当前文章被收录于：

delphi

54 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一个使用VCL Forms的Delphi程序，展示了如何通过TForm2组件的BitBtn1点击事件调用TestCallBack函数，并处理传入的JSON数据。着重讲解了如何构造回调函数和处理JSON字符串。

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;


type

  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure TestCallBack(InputJson: String; const SuccCall: TProc<String, integer>);
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  TestCallBack('{"Name":"liuyf"}',
     Procedure( Json: String; Age: Integer )
    begin
      ShowMessage('i''m:' + Age.toString + '; MyJsonInfo:' + Json)
    end
    );
end;

procedure TForm2.TestCallBack(InputJson: String; const SuccCall: TProc<String, integer>);
begin
  //InputJson的处理,如果成功:
  SuccCall(InputJson, 18);
  //如果失败:
  //FailCall(InputJson, xxx);
end;

end.

标签

#delphi