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