在公司原有系統(tǒng)的代碼中，我看到了很多判別對(duì)象的ClassName屬性進(jìn)行分別處理的代碼。而且似乎已經(jīng)是處理類似問題的標(biāo)準(zhǔn)方法。但是其中可能會(huì)隱含一些問題。

首先，我們知道多態(tài)是面向?qū)ο蟮娜筇匦灾弧Ｋ^多態(tài)，其思想就是，對(duì)于不同的具體類型，我們可以通過相同的抽象接口進(jìn)行訪問，而不必關(guān)系具體類型的實(shí)現(xiàn)細(xì)節(jié)。就像下達(dá)通知：所有員工明天9點(diǎn)在人民廣場(chǎng)集合。并不需要具體通知每個(gè)住在不同位置的人應(yīng)該幾點(diǎn)出發(fā)，走什么路線，因?yàn)檫@是具體的人的責(zé)任，而非通知下達(dá)者的責(zé)任。所以，在寫到需要判斷ClassName進(jìn)行分別處理的時(shí)候，首先應(yīng)該想到的處理方式是在父類中增加接口，通過子類override完成。如下面改變把圖形大小的代碼：
    for i := 0 to 圖形列表.Count - 1 do
    begin
      圖形 := 圖形列表[i];
      if 圖形.ClassName = '長(zhǎng)方形' then
      begin
        長(zhǎng)方形(圖形).長(zhǎng) := 長(zhǎng)方形(圖形).長(zhǎng) * 2;
        長(zhǎng)方形(圖形).寬 := 長(zhǎng)方形(圖形).寬 * 2;
      end
      else if 圖形.ClassName = '圓形' then
      begin
        圓形(圖形).半徑 := 長(zhǎng)方形(圖形).半徑 * 2;
      end  
    end;
   
就可以在父類“圖形”中增加“ChangeSize”方法，代碼如下
    圖形 = class
      ……
      PRocedure ChangeSize(rate: Integer); virtual;
    end;
   
    長(zhǎng)方形 = class
      ……
      procedure ChangeSize(rate: Integer); override;
    end;
   
    圓形 = class
      ……
      procedure ChangeSize(rate: Integer); override;
    end;
在具體的圖形類中實(shí)現(xiàn)大小改變的代碼：
    procedure 長(zhǎng)方形.ChangeSize(rate: Integer);
    begin
      長(zhǎng) := 長(zhǎng) * rate;
      寬 := 寬 * rate;
    end;
   
    procedure 圓形.ChangeSize(rate: Integer);
    begin
      半徑 := 半徑 * rate;
    end;
這樣修改后，上面的代碼就可以這樣調(diào)用了：
    for i := 0 to 圖形列表.Count - 1 do
    begin
      圖形 := 圖形列表[i];
      圖形.ChangeSize(2);
    end;
這樣代碼的意圖清晰了很多。

當(dāng)然，在很多時(shí)候，出現(xiàn)判斷ClassName的情況下并不能采用上邊的解決方法。比如遍歷Form的Cotrols并對(duì)不同的控件進(jìn)行分別初試化。我們不可能去TControl中增加初始化方法，只有采用判別具體子類類型。那么這時(shí)我推薦采用is運(yùn)算符而非直接比較ClassName。
is的用法，語句 aObject is TForm 在不同的aObject的類型情況下結(jié)果如下：
    aObject是TObject，結(jié)果為假；
    aObject是TForm，結(jié)果為真；
    aObject是TForm1，結(jié)果為真；
    aObject是TEdit，結(jié)果為假；
    aObject是nil，結(jié)果為假；
從上面示例可以看到采用is的一個(gè)優(yōu)點(diǎn)，is可以判斷是否子類的情況，比如我們?cè)诔跏蓟丶臅r(shí)候根據(jù)是TImage還是TEdit作不同的初始化，通過is判斷處理。將來也許會(huì)采用TCoolEdit來美化界面，那么這段代碼不需要更改，因?yàn)橐粋€(gè)TCoolEdit是一個(gè)TEdit；而如果采用ClassName那么必須更改為子類的名字才行。

其次如果被判斷的對(duì)象有可能為空，使用ClassName判斷必須先判斷對(duì)象是否賦值，否則就會(huì)出現(xiàn)內(nèi)存訪問錯(cuò)誤。判斷代表必須寫為：if Assigned(aObject) and aObject.ClassName = 'TClass1'；而采用is只需要寫為if aObject is TClass1。
最后一個(gè)不采用ClassName作為判定的原因是，ClassName只是用來描述一個(gè)類的屬性，字符串比較不能在編譯期獲得檢查，如果存在拼寫錯(cuò)誤，或是大小寫問題代碼都會(huì)出現(xiàn)邏輯錯(cuò)誤，而這種錯(cuò)誤只有在運(yùn)行期運(yùn)行到這一語句的時(shí)候才會(huì)被發(fā)現(xiàn)。
    if aControl.ClassName = 'TEidt' then       //只有在你注意到Edit沒有初試化時(shí)才會(huì)來檢查這段代碼；
    if aControl is TEidt then                   //無法編譯通過；

綜合上面所述，在需要判定一個(gè)對(duì)象的具體類型時(shí)，首先應(yīng)該考慮通過多態(tài)處理避免這種分別特殊處理的語句，實(shí)在不能避免的情況下應(yīng)該采用is運(yùn)算符判斷，而非ClassName。
在一種很特殊的情況下，is可能不能得到想要的結(jié)果，比如需要分別處理TEdit和TCoolEdit的情況，用is的話CoolEdit也會(huì)判斷為TEdit，這時(shí)可以采用ClassType方法，也要?jiǎng)龠^沒有類型檢測(cè)的字符串比較：
    aCoolEdit is TEdit               //True;
    aCoolEdit.ClassType = TEdit      //False;
    aCoolEdit.ClassType = TCoolEdit  //True;