Delphi中避免使用ClassName判斷對象的類型

首先我們知道多態是面向對象的三大特性之一所謂多態其思想就是對於不同的具體類型我們可以通過相同的抽象接口進行訪問而不必關系具體類型的實現細節就像下達通知所有員工明天點在人民廣場集合並不需要具體通知每個住在不同位置的人應該幾點出發走什麼路線因為這是具體的人的責任而非通知下達者的責任所以在寫到需要判斷ClassName進行分別處理的時候首先應該想到的處理方式是在父類中增加接口通過子類override完成如下面改變把圖形大小的代碼
　　　　for i := to 圖形列表Count do
　　　　begin
　　　　　圖形 := 圖形列表[i];
　　　　　if 圖形ClassName = 長方形 then
　　　　　begin
　　　　　　長方形(圖形)長 := 長方形(圖形)長 * ;
　　　　　　長方形(圖形)寬 := 長方形(圖形)寬 * ;
　　　　　end
　　　　　else if 圖形ClassName = 圓形 then
　　　　　begin
　　　　　　圓形(圖形)半徑 := 長方形(圖形)半徑 * ;
　　　　　end
　　　　end;
　　
　　就可以在父類圖形中增加ChangeSize方法代碼如下
　　　　圖形 = class
　　　　　……
　　　　　procedure ChangeSize(rate: Integer); virtual;
　　　　end;
　　
　　　　長方形 = class
　　　　　……
　　　　　procedure ChangeSize(rate: Integer); override;
　　　　end;
　　
　　　　圓形 = class
　　　　　……
　　　　　procedure ChangeSize(rate: Integer); override;
　　　　end;
　　在具體的圖形類中實現大小改變的代碼
　　　　procedure 長方形ChangeSize(rate: Integer);
　　　　begin
　　　　　長 := 長 * rate;
　　　　　寬 := 寬 * rate;
　　　　end;
　　
　　　　procedure 圓形ChangeSize(rate: Integer);
　　　　begin
　　　　　半徑 := 半徑 * rate;
　　　　end;
　　這樣修改後上面的代碼就可以這樣調用了
　　　　for i := to 圖形列表Count do
　　　　begin
　　　　　圖形 := 圖形列表[i];
　　　　　圖形ChangeSize();
　　　　end;
　　這樣代碼的意圖清晰了很多
　　
　　當然在很多時候出現判斷ClassName的情況下並不能采用上邊的解決方法比如遍歷Form的Cotrols並對不同的控件進行分別初試化我們不可能去TControl中增加初始化方法只有采用判別具體子類類型那麼這時我推薦采用is運算符而非直接比較ClassName
　　
　　is的用法語句 aObject is TForm 在不同的aObject的類型情況下結果如下
　　　　aObject是TObject結果為假
　　　　aObject是TForm結果為真
　　　　aObject是TForm結果為真
　　　　aObject是TEdit結果為假
　　　　aObject是nil結果為假
　　從上面示例可以看到采用is的一個優點is可以判斷是否子類的情況比如我們在初始化控件的時候根據是TImage還是TEdit作不同的初始化通過is判斷處理將來也許會采用TCoolEdit來美化界面那麼這段代碼不需要更改因為一個TCoolEdit是一個TEdit而如果采用ClassName那麼必須更改為子類的名字才行
　　
　　其次如果被判斷的對象有可能為空使用ClassName判斷必須先判斷對象是否賦值否則就會出現內存訪問錯誤判斷代表必須寫為if Assigned(aObject) and aObjectClassName = TClass而采用is只需要寫為if aObject is TClass
　　
　　最後一個不采用ClassName作為判定的原因是ClassName只是用來描述一個類的屬性字符串比較不能在編譯期獲得檢查如果存在拼寫錯誤或是大小寫問題代碼都會出現邏輯錯誤而這種錯誤只有在運行期運行到這一語句的時候才會被發現
　　　　if aControlClassName = TEidt then　　　 //只有在你注意到Edit沒有初試化時才會來檢查這段代碼
　　　　if aControl is TEidt then　　　　　　　　　 //無法編譯通過
　　
　　綜合上面所述在需要判定一個對象的具體類型時首先應該考慮通過多態處理避免這種分別特殊處理的語句實在不能避免的情況下應該采用is運算符判斷而非ClassName
　　
　　在一種很特殊的情況下is可能不能得到想要的結果比如需要分別處理TEdit和TCoolEdit的情況用is的話CoolEdit也會判斷為TEdit這時可以采用ClassType方法也要勝過沒有類型檢測的字符串比較
　　　　aCoolEdit is TEdit　　　　　　　 //True;
　　　　aCoolEditClassType = TEdit　　　//False;
　　　　aCoolEditClassType = TCoolEdit　//True;
From:http://tw.wingwit.com/Article/program/Delphi/201311/24658.html