C++ Builder 参考手册 ➙ System::Sysutils ➙ _di_TPredicate__1
头文件:#include <System.SysUtils.hpp>
命名空间:System::Sysutils
类型定义:
template<typename T> using _di_TPredicate__1 = System::DelphiInterface<TPredicate__1<T>>;
C++ 匿名函数 / lambda 表达式接口:有 1 个参数、返回值为 bool 的匿名函数 / lambda 表达式,C++ Builder 采用这个接口让 lambda 表达式与 Delphi 的匿名函数兼容。
参数:这个 lambda 表达式或匿名函数有 1 个参数,参数类型为 TPredicate__1 的模板参数类型;
返回值:这个 lambda 表达式或匿名函数的返回值为 bool 类型。
- 调用 _di_TPredicate__1::Invoke(); 可以执行 lambda 表达式。
- 如果函数的参数是这个类型的,可以采用继承 System::TCppInterfacedObject<TPredicate__1<T>> 并且重载 Invoke 函数作为这个参数来代替 lambda 表达式,请参考本文后面及 TThread::CreateAnonymousThread 的例子。
- 使用 _di_TPredicate__1 这个类型需要 clang 编译器
例1:写一个函数 MyFunc,参数为与 Delphi 匿名函数兼容的 lambda 表达式,lambda 表达式有一个 UnicodeString & 类型的参数,返回值为 bool 类型
void TForm1::MyFunc(_di_TPredicate__1<UnicodeString &> pLambda)
{
UnicodeString s;
while(pLambda->Invoke(s))
{
ShowMessage(s);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
std::auto_ptr<TStringList>sl(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<TPredicate__1<T>> 的方法调用这个函数
void TForm1::MyFunc(_di_TPredicate__1<UnicodeString &> pLambda)
{
UnicodeString s;
while(pLambda->Invoke(s))
{
ShowMessage(s);
}
}
class TMyProc : public TCppInterfacedObject<TPredicate__1<UnicodeString &>>
{
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,自动销毁
}
相关:
- 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_TPredicate__1
网友评论