Delphi也可以實現控件數組，用定義數組變量實現控件數組
小弟表達能力有限，此文章又是本人第一次發表文檔，所以不周到之處請各位仁兄多多包涵。
我們在使用Delphi時有時會發現一個問題，就是Delphi沒有像VB或者VF等軟件一樣可以很方便的定義控件數組。小弟在編寫一個多媒休演示光盤的時候因要用到很多Image控件，而且如果沒有用控件數組的話將使程序寫起來非常麻煩而且復雜化。所以想了很久，最終決定用定義數組變量的方式來實現控件數組。
下面是代碼：
procedure Tfrm_main.FormCreate(Sender: TObject);
var
image:array[1..12] of TImage; //用於存放12個image圖像框
label:array[1..12] of TLabel;//用於存放12個label標簽
begin
//將image對象付給image數組
image[1]:=image1;
image[2]:=image2;
image[3]:=image3;
image[4]:=image4;
image[5]:=image5;
image[6]:=image6;
image[7]:=image7;
image[8]:=image8;
image[9]:=image9;
image[10]:=image10;
image[11]:=image11;
image[12]:=image12;
//將label對象付給label數組
label[1]:=label1;
label[2]:=label2;
label[3]:=label3;
label[4]:=label4;
label[5]:=label5;
label[6]:=label6;
label[7]:=label7;
label[8]:=label8;
label[9]:=label9;
label[10]:=label10;
label[11]:=label11;
label[12]:=label12;
end;
