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;