_di_TFunc__5 - C++ Builder

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

---

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

template<typename T1, typename T2, typename T3, typename T4, typename TResult> 
using _di_TFunc__5 = System::DelphiInterface<TFunc__5<T1, T2, T3, T4, TResult>>;

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

---

参数：这个 lambda 表达式或匿名函数有 4 个参数，类型为 T1, T2, T3, T3；
返回值：这个 lambda 表达式或匿名函数的返回值为 TResult 类型。

---

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

---

例1：写一个函数 MyFunc，参数为与 Delphi 匿名函数兼容的 lambda 表达式，lambda 表达式有一个 UnicodeString 和 两个 int 类型的参数

在 Form1 上放一个 Memo 和一个 Button，在 Button 的 OnClick 事件里面执行 MyFunc 函数，第一个参数为 TStrings *，第二个参数为有一个 UnicodeString 和两个 int 参数的 lambda 表达式；MyFunc 函数类似于 for_each 枚举 pStrings 里面所有的行，每一行调用一次 lambda 表达式，传入这一行文字的关键字、值、行号和总行数，如果 lambda 表达式返回 false 终止循环：

void TForm1::MyFunc(TStrings *pStrings, _di_TFunc__5<UnicodeString, UnicodeString, int, int, bool> pLambda)
{
    int iCount = pStrings->Count;
    for(int iIndex=0; iIndex<iCount; iIndex++)
    {
        if(!pLambda->Invoke(pStrings->Names[iIndex], pStrings->ValueFromIndex[iIndex], iIndex, iCount))
            break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunc(Memo1->Lines, [this](UnicodeString sKey, UnicodeString sValue, int iIndex, int iCount)->bool {
        ShowMessage(L"第" + IntToStr(iIndex+1) + L"/" + IntToStr(iCount) + L"个关键字：\"" + sKey + L"\"，值：\"" + sValue + L"\"");
        return true;
    });
}

运行结果：Memo1 里面有两行文字："Name=Hsuanlu" 和 "名字=玄坴"，点击按钮，在 MyFunc 里面执行了 2 次 lambda 表达式，分别为这两行文字的关键字、值、行号和总行数，可以看到执行结果为两次弹出消息框，分别为 '第1/2个关键字："Name"，值："Hsuanlu"' 和 '第2/2个关键字："名字"，值："玄坴"'

运行结果1 运行结果2

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

void TForm1::MyFunc(TStrings *pStrings, _di_TFunc__5<UnicodeString, UnicodeString, int, int, bool> pLambda)
{
    int iCount = pStrings->Count;
    for(int iIndex=0; iIndex<iCount; iIndex++)
    {
        if(!pLambda->Invoke(pStrings->Names[iIndex], pStrings->ValueFromIndex[iIndex], iIndex, iCount))
            break;
    }
}

class TMyProc : public TCppInterfacedObject<TFunc__5<UnicodeString, UnicodeString, int, int, bool>>
{
public:
    bool __fastcall Invoke(UnicodeString sKey, UnicodeString sValue, int iIndex, int iCount) // 这里是调用 lambda 执行的内容
    {
        ShowMessage(L"第" + IntToStr(iIndex+1) + L"/" + IntToStr(iCount) + L"个关键字：\"" + sKey + L"\"，值：\"" + sValue + L"\"");
        return true;
    }
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunc(Memo1->Lines, new TMyProc); // 用 TMyProc 对象代替 lambda，自动销毁
}

---

相关：

• System::Sysutils::_di_TFunc__1
• System::Sysutils::_di_TFunc__2
• System::Sysutils::_di_TFunc__3
• System::Sysutils::_di_TFunc__4
• System::Sysutils::_di_TFunc__5
• System::Sysutils::_di_TPredicate__1
• System::Sysutils::_di_TProc
• System::Sysutils::_di_TProc__1
• System::Sysutils::_di_TProc__2
• System::Sysutils::_di_TProc__3
• System::Sysutils::_di_TProc__4
• System::Sysutils
• System::TCppInterfacedObject
• System::DelphiInterface
• System
• TThread::CreateAnonymousThread

---

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