コントロール配列

VBにはコントロールを設計時に配列にすることができます。 Delphi にはこの機能はありません。でもちょっと工夫すれば同じ事ができます。以下の例は ComboBoxを配列にする例です。

■ コントロールを配列にする例 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    FEditArray : array [0..4] of TEdit;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
  FEditArray[0]  :=  Edit1;
  FEditArray[1]  :=  Edit2;
  FEditArray[2]  :=  Edit3;
  FEditArray[3]  :=  Edit4;
  FEditArray[4]  :=  Edit5;
{
または以下のようにもできます
var
  ix  : integer;
begin
  for ix := low(FEditArray) to high(FEditArray) do  begin
    FEditArray[ix]  :=  TEdit(FindComponent('Edit' + IntToStr(ix + 1)));
  end;
  {
}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ix  : integer;
begin
  for ix  :=  low(FEditArray) to  high(FEditArray)  do  begin
    FEditArray[ix].Text   :=  '';
  end;
end;

end.