C++ Builder 參考手冊 ? System::Sysutils ? _di_TFunc__2

頭文件：#include <System.SysUtils.hpp>
命名空間：System::Sysutils
類型定義：

template<typename T, typename TResult> using _di_TFunc__2 = System::DelphiInterface<TFunc__2<T, TResult>>;

C++ 匿名函數(shù) / lambda 表達式接口：有一個參數(shù)哑蔫、有返回值的匿名函數(shù) / lambda 表達式碰声，C++ Builder 采用這個接口讓 lambda 表達式與 Delphi 的匿名函數(shù)兼容。

參數(shù)：這個 lambda 表達式或匿名函數(shù)有一個參數(shù)赊时，類型為模板參數(shù) T，
返回值：為模板參數(shù) TResult 類型债蜜；

• 調用 _di_TFunc__2::Invoke(); 可以執(zhí)行 lambda 表達式。
• 如果函數(shù)的參數(shù)是這個類型的究反，可以采用繼承 System::TCppInterfacedObject<TFunc__2<T, TResult>> 并且重載 Invoke 函數(shù)作為這個參數(shù)來代替 lambda 表達式寻定，請參考本文后面及 TThread::CreateAnonymousThread 的例子比藻。
• 使用 _di_TFunc__2 這個類型需要 clang 編譯器

例1：寫一個函數(shù) MyFunc议泵，參數(shù)為與 Delphi 匿名函數(shù)兼容的 lambda 表達式，lambda 表達式參數(shù)為 int 類型酝蜒，返回值為 UnicodeString 類型

void TForm1::MyFunc(_di_TFunc__2<int, UnicodeString> pLambda)
{
    int i = 0;
    UnicodeString s;
    while(!(s=pLambda->Invoke(i++)).IsEmpty())
    {
        ShowMessage(s);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList>sl(new TStringList);
    sl->Text = L"Hello, Hsuanlu!\r\n玄坴卦停，你好向胡！";

    MyFunc([&,this](int i)->UnicodeString {
        return i < sl->Count ? (*sl)[i] : L"";
    });
}

運行結果：兩次彈出信息，分別為 sl 的兩行內容

運行結果1

運行結果2

例2：依然是前面例1的 MyFunc 函數(shù)惊完，不用 lambda 表達式僵芹，采用繼承 System::TCppInterfacedObject<TFunc__2<int, UnicodeString>> 的方法調用這個函數(shù)

void TForm1::MyFunc(_di_TFunc__2<int, UnicodeString> pLambda)
{
    int i = 0;
    UnicodeString s;
    while(!(s=pLambda->Invoke(i++)).IsEmpty())
    {
        ShowMessage(s);
    }
}

class TMyProc : public TCppInterfacedObject<TFunc__2<int, UnicodeString>>
{
public:
    UnicodeString __fastcall Invoke(int i) // 這里是調用 lambda 執(zhí)行的內容
    {
        switch(i)
        {
            case 0: return L"Hello, Hsuanlu!";
            case 1: return L"玄坴，你好小槐！";
        }
        return L"";
    }
};

//---------------------------------------------------------------------------
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_TFunc__2