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++ 匿名函數(shù) / lambda 表達(dá)式接口：有 1 個(gè)參數(shù)乾翔、返回值為 bool 的匿名函數(shù) / lambda 表達(dá)式无牵，C++ Builder 采用這個(gè)接口讓 lambda 表達(dá)式與 Delphi 的匿名函數(shù)兼容。
參數(shù)：這個(gè) lambda 表達(dá)式或匿名函數(shù)有 1 個(gè)參數(shù)罕模，參數(shù)類型為 TPredicate__1 的模板參數(shù)類型溯街；
返回值：這個(gè) lambda 表達(dá)式或匿名函數(shù)的返回值為 bool 類型诱桂。
- 調(diào)用 _di_TPredicate__1::Invoke(); 可以執(zhí)行 lambda 表達(dá)式。
- 如果函數(shù)的參數(shù)是這個(gè)類型的呈昔，可以采用繼承 System::TCppInterfacedObject<TPredicate__1<T>> 并且重載 Invoke 函數(shù)作為這個(gè)參數(shù)來代替 lambda 表達(dá)式挥等，請參考本文后面及 TThread::CreateAnonymousThread 的例子。
- 使用 _di_TPredicate__1 這個(gè)類型需要 clang 編譯器
例1：寫一個(gè)函數(shù) MyFunc堤尾，參數(shù)為與 Delphi 匿名函數(shù)兼容的 lambda 表達(dá)式触菜，lambda 表達(dá)式有一個(gè) UnicodeString & 類型的參數(shù)，返回值為 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;
});
}
運(yùn)行結(jié)果：MyFunc 里面執(zhí)行了 2 次 lambda 表達(dá)式，參數(shù)為 "Hello, Hsuanlu!"剩蟀，第二次參數(shù)為 "玄坴催蝗，你好！"育特，可以看到執(zhí)行結(jié)果為兩次彈出消息框丙号，分別為 "Hello, Hsuanlu!" 和 "玄坴先朦，你好！"
例2：依然是前面例1的 MyFunc 函數(shù)犬缨，不用 lambda 表達(dá)式喳魏，采用繼承 System::TCppInterfacedObject<TPredicate__1<T>> 的方法調(diào)用這個(gè)函數(shù)
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) // 這里是調(diào)用 lambda 執(zhí)行的內(nèi)容
{
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刺彩，自動銷毀
}
相關(guān)：
- 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
