C++ Builder 參考手冊(cè) ? System::Sysutils ? _di_TProc

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

typedef System::DelphiInterface<TProc> _di_TProc;

C++ 匿名函數(shù) / lambda 表達(dá)式接口：無(wú)參數(shù)、無(wú)返回值的匿名函數(shù) / lambda 表達(dá)式，C++ Builder 采用這個(gè)接口讓 lambda 表達(dá)式與 Delphi 的匿名函數(shù)兼容。

參數(shù)：無(wú)；
返回值：無(wú)。

• 調(diào)用 _di_TProc::Invoke(); 可以執(zhí)行 lambda 表達(dá)式。
• 如果函數(shù)的參數(shù)是這個(gè)類型的，不支持 lambda 表達(dá)式的低版本 C++ 編譯器可以采用繼承 System::TCppInterfacedObject<TProc> 并且重載 Invoke 函數(shù)作為這個(gè)參數(shù)，當(dāng)然新版本也可以這樣用，請(qǐng)參考本文后面及 TThread::CreateAnonymousThread 的例子。

例1：寫一個(gè)函數(shù) MyFunc，參數(shù)為與 Delphi 匿名函數(shù)兼容的 lambda 表達(dá)式

在 Form1 上放一個(gè) Label 和一個(gè) Button，在 Button 的 OnClick 事件里面執(zhí)行 MyFunc 函數(shù)，參數(shù)為 lambda 表達(dá)式：

void TForm1::MyFunc(_di_TProc pLambda)
{
    Label1->Caption = L"Hello, Hsuanlu!";
    pLambda->Invoke();
    Label1->Caption = L"玄坴，你好！";
    pLambda->Invoke();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunc([this](){
        ShowMessage(Label1->Caption);
    });
}

執(zhí)行結(jié)果：MyFunc 里面執(zhí)行了 2 次 lambda 表達(dá)式，第一次執(zhí)行之前把 Label1 的文字改為了 "Hello, Hsuanlu!"，第二次執(zhí)行之前把 Label1 的文字改為了 "玄坴，你好！"，可以看到執(zhí)行結(jié)果為兩次彈出消息框，分別為 "Hello, Hsuanlu!" 和 "玄坴，你好！"

執(zhí)行結(jié)果1

執(zhí)行結(jié)果2

例2：依然是前面例1的 MyFunc 函數(shù)，不用 lambda 表達(dá)式，采用低版本 C++ 的方法調(diào)用這個(gè)函數(shù)

void TForm1::MyFunc(_di_TProc pLambda)
{
    Label1->Caption = L"Hello, Hsuanlu!";
    pLambda->Invoke();
    Label1->Caption = L"玄坴，你好！";
    pLambda->Invoke();
}

class TMyProc : public TCppInterfacedObject<TProc>
{
public:
    void __fastcall Invoke(void) // 這里是調(diào)用 lambda 執(zhí)行的內(nèi)容
    {
        ShowMessage(Form1->Label1->Caption);
    }
};

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunc(new TMyProc()); // 用 TMyProc 對(duì)象代替 lambda，自動(dòng)銷毀
}

新版 C++ 的 lambda 表達(dá)式書寫方便，由于參數(shù)是 _di_TProc 類型的，C++ Builder 的編譯結(jié)果會(huì)把前面 例1 的 lambda 表達(dá)式編譯成類似于 例2 的代碼，所以說(shuō)他們的執(zhí)行效率應(yīng)該是一樣的。

相關(guān)：

• 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 參考手冊(cè) ? System::Sysutils ? _di_TProc