在公司原有系統的代碼中，我看到了很多判別對象的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;