DELPHI也可以實現控制元件陣列，用定義陣列變數實現控制元件陣列 (轉)

DELPHI也可以實現控制元件陣列，用定義陣列變數實現控制元件陣列 (轉)[@more@]

也可以實現陣列，用定義陣列變數實現控制元件陣列

　　小弟表達能力有限，此文章又是本人第一次發表文件，所以不周到之處請各位仁兄多多包涵。

　　我們在使用Delphi時有時會發現一個問題，就是Delphi沒有像VB或者VF等一樣可以很方便的定義控制元件陣列。小弟在編寫一個多媒休演示光碟的時候因要用到很多Image控制元件，而且如果沒有用控制元件陣列的話將使寫起來非常麻煩而且複雜化。所以想了很久，最終決定用定義陣列變數的方式來實現控制元件陣列。

　　下面是程式碼：

procedure Tfrm_main.FormCreate(Sender: T);
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;

至此你就可以在像用控制元件陣列一樣使用控制元件了。