_di_TFunc__1 - C++ Builder

2022-06-22 本文已影响0人玄坴

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

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

template<typename TResult> using _di_TFunc__1 = System::DelphiInterface<TFunc__1<TResult>>;

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

参数：这个 lambda 表达式或匿名函数没有参数，有返回值，_di_TFunc__1 的模板参数为 lambda 返回值类型；
返回值：无。

调用 _di_TFunc__1::Invoke(); 可以执行 lambda 表达式。
如果函数的参数是这个类型的，可以采用继承 System::TCppInterfacedObject<TFunc__1<T>> 并且重载 Invoke 函数作为这个参数来代替 lambda 表达式，请参考本文后面及 TThread::CreateAnonymousThread 的例子。
使用 _di_TFunc__1 这个类型需要 clang 编译器

例1：写一个函数 MyFunc，参数为与 Delphi 匿名函数兼容的 lambda 表达式，lambda 表达式没有参数，返回值为 UnicodeString 类型

void TForm1::MyFunc(_di_TFunc__1<UnicodeString> pLambda)
{
    UnicodeString s = pLambda->Invoke();
    ShowMessage(s);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunc([this]()->UnicodeString {
        return L"Hello, Hsuanlu!";
    });
}

运行结果：

运行结果

例2：依然是前面例1的 MyFunc 函数，不用 lambda 表达式，采用继承 System::TCppInterfacedObject<TFunc__1<T>> 的方法调用这个函数

void TForm1::MyFunc(_di_TFunc__1<UnicodeString> pLambda)
{
    UnicodeString s = pLambda->Invoke();
    ShowMessage(s);
}

class TMyProc : public TCppInterfacedObject<TFunc__1<UnicodeString>>
{
public:
    UnicodeString __fastcall Invoke(void) // 这里是调用 lambda 执行的内容
    {
        return L"Hello, Hsuanlu!";
    }
};

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

_di_TFunc__1 - C++ Builder

猜你喜欢

热点阅读