C++ Builder 参考手册 ➙ System::Sysutils ➙ _di_TProc__4
头文件:#include <System.SysUtils.hpp>
命名空间:System::Sysutils
类型定义:
template<typename T1, typename T2, typename T3, typename T4>
using _di_TProc__4 = System::DelphiInterface<TProc__4<T1, T2, T3, T4>>;
C++ 匿名函数 / lambda 表达式接口:有 4 个参数、无返回值的匿名函数 / lambda 表达式,C++ Builder 采用这个接口让 lambda 表达式与 Delphi 的匿名函数兼容。
参数:这个 lambda 表达式或匿名函数有 4 个参数,参数类型为 _di_TProc__4 的模板参数类型;
返回值:无。
- 调用 _di_TProc::Invoke(); 可以执行 lambda 表达式。
- 如果函数的参数是这个类型的,可以采用继承 System::TCppInterfacedObject<TProc__4<T1, T2, T3, T4>> 并且重载 Invoke 函数作为这个参数来代替 lambda 表达式,请参考本文后面及 TThread::CreateAnonymousThread 的例子。
- 使用 _di_TProc__4 这个类型需要 clang 编译器
例1:写一个函数 MyFunc,参数为与 Delphi 匿名函数兼容的 lambda 表达式,lambda 表达式有一个 UnicodeString 和 两个 int 类型的参数
在 Form1 上放一个 Memo 和一个 Button,在 Button 的 OnClick 事件里面执行 MyFunc 函数,第一个参数为 TStrings *,第二个参数为有一个 UnicodeString 和两个 int 参数的 lambda 表达式;MyFunc 函数类似于 for_each 枚举 pStrings 里面所有的行,每一行调用一次 lambda 表达式,传入这一行文字的关键字、值、行号和总行数:
void TForm1::MyFunc(TStrings *pStrings, _di_TProc__4<UnicodeString, UnicodeString, int, int> pLambda)
{
int iCount = pStrings->Count;
for(int iIndex=0; iIndex<iCount; iIndex++)
pLambda->Invoke(pStrings->Names[iIndex], pStrings->ValueFromIndex[iIndex], iIndex, iCount);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MyFunc(Memo1->Lines, [this](UnicodeString sKey, UnicodeString sValue, int iIndex, int iCount){
ShowMessage(L"第" + IntToStr(iIndex+1) + L"/" + IntToStr(iCount) + L"个关键字:\"" + sKey + L"\",值:\"" + sValue + L"\"");
});
}
执行结果:Memo1 里面有两行文字:"Name=Hsuanlu" 和 "名字=玄坴",点击按钮,在 MyFunc 里面执行了 2 次 lambda 表达式,分别为这两行文字的关键字、值、行号和总行数,可以看到执行结果为两次弹出消息框,分别为 '第1/2个关键字:"Name",值:"Hsuanlu"' 和 '第2/2个关键字:"名字",值:"玄坴"'
执行结果1 执行结果2例2:依然是前面例1的 MyFunc 函数,不用 lambda 表达式,采用继承 System::TCppInterfacedObject<TProc__2<T1, T2>> 的方法调用这个函数
void TForm1::MyFunc(TStrings *pStrings, _di_TProc__4<UnicodeString, UnicodeString, int, int> pLambda)
{
int iCount = pStrings->Count;
for(int iIndex=0; iIndex<iCount; iIndex++)
pLambda->Invoke(pStrings->Names[iIndex], pStrings->ValueFromIndex[iIndex], iIndex, iCount);
}
class TMyProc : public TCppInterfacedObject<TProc__4<UnicodeString, UnicodeString, int, int>>
{
public:
void __fastcall Invoke(UnicodeString sKey, UnicodeString sValue, int iIndex, int iCount) // 这里是调用 lambda 执行的内容
{
ShowMessage(L"第" + IntToStr(iIndex+1) + L"/" + IntToStr(iCount) + L"个关键字:\"" + sKey + L"\",值:\"" + sValue + L"\"");
}
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MyFunc(Memo1->Lines, new TMyProc()); // 用 TMyProc 对象代替 lambda,自动销毁
}
新版 C++ 的 lambda 表达式书写方便,由于参数是 _di_TProc__4 类型的,C++ Builder 的编译结果会把前面 例1 的 lambda 表达式编译成类似于 例2 的代码,所以说他们的执行效率应该是一样的。
相关:
- System::TCppInterfacedObject
- System::DelphiInterface
- TThread::CreateAnonymousThread
- 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
C++ Builder 参考手册 ➙ System::Sysutils ➙ _di_TProc__4
网友评论