c++ builder XE4, 10.2 Tokyo > Tag가 동일한 TMemo에서 텍스트를 얻는 구현

코드 v0.1

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE で管理されるコンポーネント
    TButton *Button1;
    TMemo *Memo1;
    TMemo *Memo2;
    TMemo *Memo3;
    void __fastcall Button1Click(TObject *Sender);
private:    // ユーザー宣言
    String __fastcall getMemoText(TForm *frmPtr, String tag);
public:     // ユーザー宣言
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (Sender == NULL) {
        return;
    }

    TComponent *cmpPtr = (TComponent *)Sender;
    String ret = getMemoText(this, cmpPtr->Tag);
    ShowMessage(ret);
}

String __fastcall TForm1::getMemoText(TForm *frmPtr, String tag)
{
    String ret = L"";
    for(int idx=0; idx < frmPtr->ComponentCount; idx++) {
        if (dynamic_cast<TMemo *>(frmPtr->Components[idx]) == NULL) {
            continue;
        }

        TMemo *mmPtr = (TMemo *)frmPtr->Components[idx];
        if (mmPtr->Tag != tag) {
            continue;
        }

        ret = mmPtr->Text;
    }

    return ret;
}
//---------------------------------------------------------------------------

설정