先前公司的一個專案因開發時間與專案定位導致結構失衡。在經過前段日子的評估與調查後，從今天開始進行重構。

　　也想趁這個機會，將介面的開發由Delphi 6轉向Delphi 2009。從而逐步放棄Delphi 6這個用了近7年的開發工具。也知道在轉移的過程中會碰到許多問題，因此在此處對這些問題進行記錄（其中包含了很多警告資訊，但偶喜歡追求０警告），以供參考。 １）首先將自寫的控制元件轉移。直接從以前的.dpk安裝控制元件，發現安裝不上去，出現很多編譯錯誤。只好另外新建一個D2009的包檔案，再將原始碼檔案新增進來。安裝成功。 
       雖然安裝成功，卻有以下問題：[DCC Warning] Lilac.dpk(62): W1033 Unit 'VirtualTrees' implicitly imported into package 'Lilac' 
       從詞面上知道解決方法，卻不知道為什麼會產生這個問題。 
       解決方法：將VirtualTrees所在包的dcp檔案新增到Requires中。 ２）由以下程式碼產生的警告 [DCC Warning] RVMarker.pas(1122): W1063 Widening given AnsiChar constant (#$A7) to WideChar lost information        var 
           ch: Char; 
       begin 
           if (ch >= #$A7) then //或者 if (ch >= #167)  then 
       end; 
       產生原因：D2009的Char為寬字元WideChar，而#$A7代表的是AnsiChar。 
       解決方法：要將 #$A7 或 #167 改為 #$00A7 即可 ３）由以下程式碼產生的警告 [DCC Warning] RVMarker.pas(1120): W1057 Implicit 

string cast from 'AnsiChar' to 'string'        // 函式的宣告：procedure ReplaceStr(var str: String; oldstr, newstr: String); 
       ReplaceStr(stResult, #$A7, 'A'); 
       ReplaceStr(stResult, #167, 'A');        
       產生原因：同上 
       解決方法：同上 ４）protected域的procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;在編譯時出現警告：[DCC Hint] uMLBoxCtrls.pas(722): H2269 Overriding virtual method 'TMLListBox.GetChildren' has lower visibility (protected) than base class 'TMLControl' (public)        從資訊可以看出是因為將父類(TCustomControl)的public域函式覆蓋到了protected域導致的        產生原因：此函式(TCustomControl.GetChildren)在D6中是protected域的函式，在D2009中卻成了public域了 
       解決方法：將此函式宣告到public域中 ５）呼叫API函式gethostname出錯：[DCC Error] uVIMPublicFun.pas(449): E2010 Incompatible types: 'Array' and 'PAnsiChar'        var 
           hostName : array [0..255] of char; 
       begin 
           gethostname(hostName, sizeof (hostName)); 
       end;        
       產生原因：D2009的Char為寬字元WideChar，而gethostname第一個引數是PAnsiChar。 
       解決方法：將hostName的宣告改成array [0..255] of AnsiChar;即可。 ６）以下程式碼生成警告：[DCC Warning] uEditor.pas(192): W1058 Implicit string cast with potential data loss from 'TCaption' to 'ShortString'        var 
           DisName : string[80]; 
       begin 
           DisName := Self.cmg_Edit.Text; 
       end;        
       產生原因：又是一個型別問題 
       解決方法：這種以前在D6中常的程式碼以後不能用了:(，改正也簡單：DisName := ShortString(Self.cmg_Edit.Text);。 ７）以下程式碼編譯錯誤：[DCC Error] PageFrm_Owner.pas(3695): E2008 Incompatible types        var 
           DisName : string[80]; 
          AliasName: array[0..80] of Char; 
       begin 
           DisName := AliasName; 
       end;        
       產生原因：還是型別問題 
       解決方法：DisName := ShortString(AliasName); ８）以下程式碼產生警告：[DCC Warning] VirtulFirm.pas(127): W1050 WideChar reduced to byte char in set expressions.  Consider using 'CharInSet' function in 'SysUtils' unit.        procedure TVirtualFirm.edFirmKeyPress(Sender: TObject; var Key: Char); 
       begin 
          if not (Key in ['0'..'9']) then 
          begin 
            Key := #0; 
          end; 
       end;        
       產生原因：型別問題 
       解決方法：if not (AnsiChar(Key) in ['0'..'9']) then ９）cm_Pt := SmallPointToPoint(Message.Pos)會產生一行提示：[DCC Hint] uMLPageControl.pas(326): H2443 Inline function 'SmallPointToPoint' has not been expanded because unit 'Types' is not specified in USES list       
       產生原因：檢視函式的聲明發現一個以前沒有在delphi中出現過的inline，估計此關鍵字的功能與C++的相同或相似。 
       解決方法：根據提示資訊即可知道如何解決，即uses types 　　花了一下午，終於成功編譯了原有的程式碼。發現的問題大多是字串的型別問題。隨著後續工作的深入，問題會越來越多或者會發現些啥好東東。到時再新增上來。