_di_TProc - C++ Builder

C++ Builder 参考手册 ➙ System::Sysutils ➙ _di_TProc

头文件：#include <System.SysUtils.hpp>
命名空间：System::Sysutils
类型定义：

typedef System::DelphiInterface<TProc> _di_TProc;

C++ 匿名函数 / lambda 表达式接口：无参数、无返回值的匿名函数 / lambda 表达式，C++ Builder 采用这个接口让 lambda 表达式与 Delphi 的匿名函数兼容。

参数：无；
返回值：无。

调用 _di_TProc::Invoke(); 可以执行 lambda 表达式。
如果函数的参数是这个类型的，不支持 lambda 表达式的低版本 C++ 编译器可以采用继承 System::TCppInterfacedObject<TProc> 并且重载 Invoke 函数作为这个参数，当然新版本也可以这样用，请参考本文后面及 TThread::CreateAnonymousThread 的例子。

例1：写一个函数 MyFunc，参数为与 Delphi 匿名函数兼容的 lambda 表达式

在 Form1 上放一个 Label 和一个 Button，在 Button 的 OnClick 事件里面执行 MyFunc 函数，参数为 lambda 表达式：

void TForm1::MyFunc(_di_TProc pLambda)
{
    Label1->Caption = L"Hello, Hsuanlu!";
    pLambda->Invoke();
    Label1->Caption = L"玄坴，你好！";
    pLambda->Invoke();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunc([this](){
        ShowMessage(Label1->Caption);
    });
}

执行结果：MyFunc 里面执行了 2 次 lambda 表达式，第一次执行之前把 Label1 的文字改为了 "Hello, Hsuanlu!"，第二次执行之前把 Label1 的文字改为了 "玄坴，你好！"，可以看到执行结果为两次弹出消息框，分别为 "Hello, Hsuanlu!" 和 "玄坴，你好！"

执行结果1

执行结果2

例2：依然是前面例1的 MyFunc 函数，不用 lambda 表达式，采用低版本 C++ 的方法调用这个函数

void TForm1::MyFunc(_di_TProc pLambda)
{
    Label1->Caption = L"Hello, Hsuanlu!";
    pLambda->Invoke();
    Label1->Caption = L"玄坴，你好！";
    pLambda->Invoke();
}

class TMyProc : public TCppInterfacedObject<TProc>
{
public:
    void __fastcall Invoke(void) // 这里是调用 lambda 执行的内容
    {
        ShowMessage(Form1->Label1->Caption);
    }
};

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunc(new TMyProc()); // 用 TMyProc 对象代替 lambda，自动销毁
}

新版 C++ 的 lambda 表达式书写方便，由于参数是 _di_TProc 类型的，C++ Builder 的编译结果会把前面例1 的 lambda 表达式编译成类似于例2 的代码，所以说他们的执行效率应该是一样的。

_di_TProc - C++ Builder

推荐阅读更多精彩内容