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

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

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;

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

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

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

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