在C++中，我們可以用static來聲明一個屬于類而不是類的某個具體實例的函數(shù)。許多人以為Object Pascal沒有類似的功能，其實是有的，只要將函數(shù)聲明為類方法（class procedure或者class function）就可以了。例如：
TForm1=class(TForm)
public
class procedure T;
end;
implementation
class procedure TFomr1.T;
begin
end;
你可以在項目文件中驗證它是不是真的static：
begin
TForm1.T;
Application.Initialzie;
Application.CreateForm(TForm1,Form1);
Application.Run;
end;
class procedure/class function在VCL中也是相當(dāng)重要的一類特殊方法。TObject的ClassName,ClassNameIs,ClassPoint,ClassInfo這四個方法全都是class function。雖然你在實際的編程中99.99999999999%的時間都不會用到它們，不過這四個函數(shù)堪稱構(gòu)筑整個VCL的基石。
值得一提的是，與C++中的static member function不同，Object Pascal中的class method能夠具有多態(tài)的性質(zhì)。例如，ClassName是TObject的一個class method，但是你調(diào)用TForm.ClassName得到的就是'TForm'，調(diào)用TButton.ClassName得到的就是'TButton'，等等。靜態(tài)方法能夠做到多態(tài)，豈不是非常神奇？這一切都是通過RTTI才做到的。你可以想象，如果ClassName用一般的virtual method來聲明的話，就必須在每個派生類中都必須重載它才能實現(xiàn)類名稱的正確映射，那將是多么痛苦的一件事情。
Class Reference是Object Pascal中不太為人所知曉的概念。它的語法很簡單，比如， TClass=class of TObject； Class Reference有什么用呢？用一個小例子來說明。在Form上面放一個RadioGroup，其中包括Radio Button, Check Box， Button三項。代碼如下： type TForm1=class(TForm) ... private ControlRef:TControlClass; Counter : integer; ... end; implementation procedure TForm1.FormCreate(Sender:TObject); begin Counter := 0; end; procedure TForm1.RadioGroup1Click(Sender:TObject); begin case RadioGroup1.ItemIndex of 0: ControlRef:=TRadioButton; 1: ControlRef:=TCheckBox; 2: ControlRef:=TButton; end; end; procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:integer); var Control : TControl; ControlName : string; begin if Button=mbLeft then begin Control := TControlRef.Create(Self); with Control do begin Visible := False; Parent := Self; Left := X; Top := Y; ControlName := Control.ClassName + IntToStr(Counter); Delete(ControlName,1,1); Name := ControlName; visible := True; end; end; end; Class Reference揭示了Object Pascal的一個令人驚訝的能力。在OO語言的一般概念中，Constructor不可能是virtual,我們調(diào)用TButton.Create建立的就是Button，TForm.Create建立的就是TForm，依此類推。但是，籍由Class Reference，VCL就擁有了virtual Construction的能力，在上面的代碼中，通過單獨的一個ControlRef.Create，我們建立起來的可以是任何TControl的派生對象。正是由于這種能力，F(xiàn)orm Designer和Object Inspector才有辦法操作各種各樣不同類型的構(gòu)件，而不管這些構(gòu)件是Delphi內(nèi)置的，還是我們從其他地方得到的，或者是我們自己編寫的。Class Reference的概念在其他地方也被稱作meta-class，是用來描述類信息的特殊類型。實際上，真正的幕后英雄是RTTI，通過RTTI，不僅使得類擁有了virtual construction的功能，而且類中的class method也有了virtual的性質(zhì)。例如，TObject中的ClassName方法聲明為class function ClassName:string，按道理說static method是不可能做到多態(tài)的，但實際上，我們調(diào)用TButton.ClassName得到的就是TButton，調(diào)用TForm.ClassName得到的就是TForm，通過RTTI，不可能的事情變成了可能，而且而避免了在每個派生類都要重載ClassName的麻煩。 在MFC中，如果一個對象滿足下列條件：1。它是從CObject派生的；2。它的聲明中包含DECLARE_DYNAMIC,并且在某個地方實現(xiàn)了IMPLEMENT_DYNAMIC，那么它也可以通過GetRuntimeClass()->CreateObject來實現(xiàn)類似的功能。所不同的是，MFC的實現(xiàn)方法是通過宏來在內(nèi)存中建立起一個完整的CRuntimeClass表格，而Object Pascal中，由于單根繼承的特性，所有對象天生就具備了這些功能。MFC的內(nèi)存表格是通過程序員的聲明而建立的，而Object Pascal中的RTTI表格是編譯器自動生成的，彼此實現(xiàn)方法不同，但背后的思想是基本一致的。 通過RTTI，不僅對象可以動態(tài)生成，而且對象的屬性也可以動態(tài)設(shè)置。下面這段代碼不是來自《Mastering Delphi 6》，而是來自陳寬達(dá)先生的《Delphi深度歷險》，它同樣揭示了Object Pascal通過RTTI而具備的強大功能和靈活性： var i: integer; propInfo: PPropInfo; begin for i:=0 to ComponentCount-1 do begin PropInfo := GetPropInfo(Components[i].ClassInfo,’Color’); if PropInfo<>nil then SetOrProp(Components[i], PropInfo, clRed); end; end;
