_di_TPredicate__1 - C++ Builder

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

头文件：#include
命名空间：System::Sysutils
类型定义：

template using _di_TPredicate__1 = System::DelphiInterface>;

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

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

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

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

void TForm1::MyFunc(_di_TPredicate__1 pLambda)
{
    UnicodeString s;
    while(pLambda->Invoke(s))
    {
        ShowMessage(s);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptrsl(new TStringList);
    sl->Text = L"Hello, Hsuanlu!\r\n玄坴，你好！";
    int iIndex = 0;

    MyFunc([&](UnicodeString &sMessage)->bool {
        if(iIndex < sl->Count)
        {
            sMessage = (*sl)[iIndex++];
            return true;
        }
        return false;
    });
}

运行结果：MyFunc 里面执行了 2 次 lambda 表达式，参数为 "Hello, Hsuanlu!"，第二次参数为 "玄坴，你好！"，可以看到执行结果为两次弹出消息框，分别为 "Hello, Hsuanlu!" 和 "玄坴，你好！"

运行结果1

运行结果2

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

void TForm1::MyFunc(_di_TPredicate__1 pLambda)
{
    UnicodeString s;
    while(pLambda->Invoke(s))
    {
        ShowMessage(s);
    }
}

class TMyProc : public TCppInterfacedObject>
{
private:
    int iIndex;
    TStringList *sl;
public:
    bool __fastcall Invoke(UnicodeString &sMessage) // 这里是调用 lambda 执行的内容
    {
        if(iIndex < sl->Count)
        {
            sMessage = (*sl)[iIndex++];
            return true;
        }
        return false;
    }
    __fastcall TMyProc()
    {
        iIndex = 0;
        sl = new TStringList;
        sl->Text = L"Hello, Hsuanlu!\r\n玄坴，你好！";
    }
    __fastcall ~TMyProc()
    {
        delete sl;
    }
};

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

_di_TPredicate__1 - C++ Builder

你可能感兴趣的:(_di_TPredicate__1 - C++ Builder)