C++Builder Tips

VBのコントロール配列を実現させる（TList）

TListにコンポーネント（コントロール）を追加していくと、VBのコントロール配列のようなことが実現できます。

//---------------------------------------------------------------------------
// Unit1.h
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE 管理のコンポーネント
　　TEdit *Edit1;
　　TEdit *Edit2;
　　TEdit *Edit3;
　　TEdit *Edit4;
　　TEdit *Edit5;
　　TListBox *ListBox1;
　　TButton *Button1;
　　void __fastcall FormCreate(TObject *Sender);
　　void __fastcall Button1Click(TObject *Sender);
　　void __fastcall FormDestroy(TObject *Sender);
private: // ユーザー宣言
　　TList *lstEdit;
public: // ユーザー宣言
　　__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
// Unit1.cpp
//---------------------------------------------------------------------------

#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::FormCreate(TObject *Sender)
{
　　lstEdit = new TList;

　　lstEdit->Add(Edit1);
　　lstEdit->Add(Edit2);
　　lstEdit->Add(Edit3);
　　lstEdit->Add(Edit4);
　　lstEdit->Add(Edit5);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　for (int i=0;i<lstEdit->Count;i++){
　　　　TEdit *edt = (TEdit*)lstEdit->Items[i];
　　　　ListBox1->Items->Add(edt->Text);
　　}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
　　delete lstEdit;
}
//---------------------------------------------------------------------------

DownLoad bcbtips063.lzh 4KB(BCB5)