有時候我們可能在程序中需要動態(tài)去生成一些對象，但我們又不想寫大量的case分支語句來實(shí)現(xiàn)，而是建一張表，根據(jù)類的名稱或其他一些索引來生成類的實(shí)例——對象。如果你有這方面的需要，本文將會幫助你實(shí)現(xiàn)這一目的。

在寫正文之前首先要引進(jìn)一個概念，類的變量（自己起的準(zhǔn)確不準(zhǔn)確無所謂，只大家明白就行啦）。這個類的變量并非我們平時看到的這樣的定義如：Edit1:TEdit。這樣的定義只是定義了一個對象。如果想定義類的變量，我們需要這樣定義，首先要定義一個類型類的類 Type TEditClass=class of  Tedit;這樣的話TEditClass就是一個類的類型。我們就可以通過：Var  EditClass:TEditClaa;來定義類的變量了。如果我們想來生成一個TEdit的實(shí)例，就可以通過下面這段程序來實(shí)現(xiàn)：

type TEditClass=class of TEdit;
PRocedure TForm1.Button1Click(Sender: TObject);
var EditClass:TEditClass;
  Edit1:TEdit;
begin
  EditClass:=TEdit;
  Edit1:=EditClass.Create(self);
  Edit1.Parent :=self;
end;

這段代碼也許沒什么意義，但如果有大量的對象的時候，這樣做的用處就顯出來了。那就是可以根據(jù)類名或其它的東西來生成類的實(shí)例。而不是用大量的CASE語段來判斷該生成什么對象。需要注意的是，我上面定了的類之類是TEditClass，如果換成TEDIT的父類也是適用的。 如果把 Type TEditClass = class of TEdit 換成 TWInControlClass = class of TWinControl，程序照樣可以正確運(yùn)行。

要想實(shí)現(xiàn)標(biāo)題所提到的想法，我們可以這樣實(shí)現(xiàn)，構(gòu)建一張表，其中至少有兩個字段，一個索引（比如字符串或整數(shù)等等），另一個就是類的變量，當(dāng)然也可以加其他一些輔助的信息。這要視具體的情況而定。在需要生成對象的時候，我們可以先查找索引，如字符串或整數(shù)，再根據(jù)索引指向的類的變量來生成實(shí)例。

使用這種方法一定要注意：定義類的類的時候，這個類要是你需要生成類的父類，并且它們的構(gòu)造函數(shù)的參數(shù)完全一樣。

這種方案可以做為使用工廠模式的一種具體實(shí)現(xiàn)方案。工廠類可以不知道自己有多少產(chǎn)品類，產(chǎn)品類自動用工廠類的增加方法來把自己添加到工廠類的產(chǎn)品列表中去。到產(chǎn)出產(chǎn)品對象的時候，工廠類自動根據(jù)產(chǎn)品名稱來生成產(chǎn)品類。這樣可以保證工廠類的絕對穩(wěn)定性，即新增加產(chǎn)品的時候，工廠類不用做任何改動就可以運(yùn)行。