Delphi --技巧探索：  
{ No. 1 }
創建模式窗體的句子：
class PRocedure TMyForm.RunForm(AObj1, AObj2: TObject);
var
vForm: TMyForm;
begin
vForm := TMyForm.Create(application);
with vForm do
Try
 InitForm(AObj1, AObj2);
 ShowModal;
Finally
 Free;
end;
end;
//*說明：
通過class聲明的函數，類似與VC中的靜態函數；使用語句：TMyForm.RunForm(vObj1, vObj2);
其他具體的，參考：Delphi 幫助中的，class 類說明。
強調這個慣用法，就是為了：
1、如果此窗體在多處被使用，那么可以保證統一都調用此段代碼；
2、如果功能上有所修改，比如：根據ShowModal的返回值不同進行處理，那么只修改此函數就行了。
3、程序封裝性好，易于維護和工作交接。*//

{ No. 2 }//Tag 的使用
窗體工具欄按鈕事件的響應
procedure TMyForm.RunOperate(ATag: Integer);
begin
 Case ATag of
 1: MyButton.Color := clRed;
 2: MyButton.Color := clGreen;
 3: MyButton.Color := clBlack;
 end;
end;

procedure TMyForm.ToolBtnClick(Sender: TObject);
begin
 RunOperate(TControl(Sender).Tag);
end;

如果你在某下拉菜單中，也需要執行類似功能則
procedure TMyForm.MenuItemClick(Sender: TObject);
begin
 RunOperate(TMenuItem(Sender).Tag);
end;

//*說明：
1、結構清晰
2、相關的信息集中，比較容易查錯、修改和維護
3、提高程序的適應、擴展能力；比如現在要求不在工具欄按鈕中實現，而要求在不同按鈕中實現，則修改容易。
建議：每個分類后面只跟一行或不多的幾行代碼，如果代碼比較多，使用過程函數替代。
比較有意思的是，我經常如下寫：
Case btnMyButton.Visible of
{ 顯示 } True: ...
{不顯示} False: ...
end;    *//

{ No. 3 }//事件指針做參數
//對于列表等的讀取使用事件指針的方式
type
 TDataSetEvent = procedure (DataSet: TDataSet; AIndex, ACount: Integer) of Object;
//從 TADOQuery派生而來的類
procedure TMyADOQuery.EnumRecord(AWhereStr: String; APro: TDataSetEvent);
begin
 Close;
 SQL.Clear;
 SQL.Add('Select * From Table1');
 if AWhereStr <> '' then
   SQL.Add('Where ' + AWhereStr);
 Open;
 While Not Eof do
 begin
   if Assigned(APro) then APro(Self, RecNo, RecordCount);
   Next;
 end;  
 Close;
end;

//*說明：
此方法來自與Window中，枚舉當前所有子窗體的API函數，EnumChildWindow
1、原則：盡量將數據讀取與數據顯示、數據處理等分離；如：MVC等都是此目的。
2、程序擴展性增強，如果您原來希望在列表中顯示或處理某列信息，后來改為用ComboBox，則在修改程序時，不在閱讀數據讀取部分，只需要修改信息顯示等即可。又比如，現在要求您在讀取記錄時，用進度條顯示讀取進度等。
*//

{ No. 4 }//常量數組

{ 在 No.2 中，實現了如下的內容
procedure TMyForm.RunOperate(ATag: Integer);
begin
Case ATag of
1: MyButton.Color := clRed;
2: MyButton.Color := clGreen;
3: MyButton.Color := clBlack;
end;
end;
}
//那么用數組方式實現，則就比較理想了
procedure TMyForm.RunOperate(ATag: Integer);
const
 MyButtonColorMax := 3;
 MyButtonColor: array [1..MyButtonColorMax] of TColor = (clRed, clGreen, clBlack);
begin
Case ATag of
1..MyButtonColorMax:  MyButton.Color := MyButtonColor[ATag];
101:....
end;
end;

//*說明：
對于數組方式使用，只要注意數組的上限或下限使用常量來實現，然后在以后使用中都盡量使用此常量進行數組循環讀取就行了。
*//

{ No. 5 }消息機制 減少類公共函數
//如何讓一個窗體中，盡量減少公共函數的定義;
{ 比如：要實現一個當前窗體控件的屬性列表窗體，當需要刷新屬性窗體；改變某屬性值；添加新的屬性等；會有很多需要交互的信息。如果我們使用類公共函數，則需要定義很多的公共函數。同時，如果需要進行窗體類型轉換，轉換為目標窗體類型才可以使用公共函數。所以，會遇到兩個單元需要互相包含的情況 }
//解決方案：
TfrmMyForm = class(TForm)
 FfrmProperty: TForm;
end;

...
 FfrmProperty := TfrmProperty.MyCreate(Application, Self);
...

//當需要刷新屬性窗體時
 FfrmProperty.Perform(WD_REFRESHPROPERTYLIST, 0, 0);

TfrmProperty = class(TForm)
private
 FMyForm: TForm;
 procedure WDREFRESHPROPERTYLIST(var Message: TMessage); message WD_REFRESHPROPERTYLIST;
public
 constructor MyCreate(Owner: TComponent; AForm: TForm);
end;

constructor TfrmProperty.MyCreate(Owner: TComponent; AForm: TForm);
begin
 inherited Create(Owner);
 FMyForm := AForm;
end;

//* 對于使用消息的方式，可以減少窗體公共函數的定義。同時，提高程序的可擴充性。如果，使用他的窗體替代時，則可以比較輕松的轉換，因為如果最多也就是您的窗體，對當前的消息沒有進行處理而已 *)// 

{ No. 6 }使用注冊列表管理可能擴充的模塊
//項目：要求你對一個數據集支持多種輸出顯示方式

...例子,以后給出

//* 說明：
1、“多種輸出方式”，說明輸出方式在今后的應用中可能會經常擴充，因此要在程序設計時考慮到輸出方式的易擴充性。
2、參考VCL中，控件注冊(RegisterComponents)的機制，可以發現VCL中大量的使用到了注冊機制；其中比較經典的就是控件屬性編輯器的注冊了。
*//

{ No. 7 }使用預定義控制程序版本

//如果您做的是一個二次開發平臺的程序，則必須涉及到產品版本控制和項目版本控制問題
//通常使用預定義的方式控制

//語句比較簡單了就是：
{$DEFINE JOYYUAN97}
{$IFDEF JOYYUAN97} {ELSE} {ENDIF}
{$UNDEF JOYYUAN97}

*說明：
1、將預定義劃分在多個單獨的文件中。
2、在每個單元的最前頭但在Unit 后，使用{$I ...} 將文件包含(Include)進當前單元
3、根據預定義情況控制當前單元所能包含的單元文件
4、盡量單獨劃分一個針對項目的預定義文件在包含所有預定義文件后，包含此文件，則在此文件中，可以針對項目的需要，將取消部分預定義{$UNDEF JOYYUAN97}
*//

{ No. 8 } 使用函數指針，減少單元項目包含

//我經常的認為減少單元的包含，是做公共單元的第一步，所以在如何盡量減少單元包含
//也就是如何減少程序單元的耦合性上，應多下工夫。

{ 情景描述：
TMyFormManager： 窗體管理類
TMyForm：數據窗體基礎類
TMyFormaccess：窗體信息保存和讀取類。將窗體信息保存到數據庫或其他什么類型的結構中
分析：
1、窗體基礎類(TMyForm) 和 窗體管理類(TMyFormManager)需要在一個單元 uManagers中實現。
2、窗體具體實現類(TMyImageForm)單元 fMyImange 需要包含單元uManagers，進行窗體繼承，和窗體管理。
3、窗體數據讀取類(TMyFormAccess)單元 uMyAccess 需要包含單元uManagers和單元fMyImange
問題：
 如果我希望實現窗體保存，那么應該在窗體的某個按鈕事件中實現。則涉及到窗體單元需要包含窗體數據訪問類單元，而如果放在窗體基礎類中，則單元uManager又必須包含單元uMyAccess。
 當數據訪問，即數據存儲格式會根據要求而改變并要求可擴充時，則單元包含必定是一個隱患。
解決辦法：使用函數指針變量。
1、在單元uManagers中定義一個，保存數據信息的函數指針變量。
2、在應用程序初始化的時候給這個函數指針變量賦值。
3、在需要保存窗體信息時，判斷如果指針不為空，則執行函數保存窗體信息。

{ No. 9 } 常量，認識常量，使用常量
有很多書都都介紹了常量定義的重要性，我也會經常想到，但是看看VCL源碼才知道，自己忽略了，別人對常量的使用情況。

1、我們經常使用的消息的定義就是：聲明一個常量，然后在適當的時候使用之。
 通常定義和使用：
 const
   WD_MyMessage = WM_User + 101;
 type
 TMyForm = class(TForm)
 ...
   procedure WDMyMessage(var message: TMessage); message WD_MyMessage; {響應消息位置}
 end;
 但是，如果您將{響應消息位置}語句改寫為：
   procedure WDMyMessage(var message: TMessage); message WM_User + 101;
 同樣，編譯可以成功，使用也正常。所以，常量定義在Window系統處理和接口中應用非常普遍。

2、在Delphi中，我們定義了顏色變量，clRed, clGreen等，也都是定義的常量，便于以后的使用。通過這個觀察我發現，常量的定義應該是在項目中，可部分復用的，所以，可以定義一個標準常量單元，以便在個項目中，復用定義的常量。

 { No. 10 }一個Delphi中，常用到的數組

對TIdentMapEntryd類型的數組定義和使用，Delphi中，有比較完善的實現。
 TIdentMapEntry = record
   Value: Integer;
   Name: String;
 end;

1、數組定義：array[0..ArrMax] of TIdentMapEntry
 可參考：Controls單元中:
 Cursors: array[0..21] of TIdentMapEntry = (
 ...
 );
2、兩個互相求值得函數： IntToIdent（由Value求Name）和 IdentToInt（由Name求Value）；
 具體應用可以參考：IdentToCursor 和 CursorToIdent。

3、應用：a、直接應用此樹組定義方式和數組操縱函數；b、學習函數中，對數組訪問和操縱的方式。c、學習標準的信息訪問函數定義： function IntToIdent(Int: Longint; var Ident: string; const Map: array of TIdentMapEntry): Boolean; 具體返回的信息由參數方式返回回來，至于訪問是否有效，則通過函數的布爾返回值加以判斷。

{ No. 11 } 由特例到普通的發現
我通過對 Cursors 的定義和操作函數的跟蹤發現：
1、如 { No. 10 }中介紹的，將Cursors的定義和一般操作通用化。
2、提供 Int 和 Ident互轉化的函數。
3、提供數組列表信息循讀取的函數： GetCursorValues；其中，使用了 { No. 3 } 中介紹的“事件指針 做參數”讀取列表信息的方法。

{ No. 6 } 的補充：
例子：
procedure RegisterComponents(const Page: string;
 ComponentClasses: array of TComponentClass);
begin
 if Assigned(RegisterComponentsProc) then
   RegisterComponentsProc(Page, ComponentClasses)
 else
   raise EComponentError.CreateRes(@SRegisterError);
end;

解讀：
1、使用注冊的方式，記錄可使用的控件的類型等。
3、對于 RegisterComponentsProc 使用了{ No. 8 } 中“使用函數指針，減少單元項目包含”的方法，便于將來程序的擴充，版本的升級等。

 { No. 11 }只定義一個公共函數
//項目描述：現在要實現一個CAD畫圖或Visio系統，要求有好的擴展性和易維護性；
//并且要求耦合性低，便于，將來系統的部分或擴展后的系統封裝后，直接在今后的項目中使用

設計：
1、設計一個圖形對象抽象類，在此類中，定義一個抽象函數 CadPerform，函數的參數參照function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
2、在圖形管理類中，實現一個圖形對象列表的管理，列表中保存的是抽象對象的指針。
3、對于要對具體類對象進行操縱控制時，只需通過條用CanPerform函數，然后根據當前操作的類別傳入 Msg, 并傳入相應的參數信息。

實現： TCad 為由抽象類繼承下來的第一層控件類
function TCad.CadPerform(Msg: Cardinal; WParam, LParam: Longint): Longint;
begin
 Case Msg of
 My_Message1: Result := MyMessage1(WParam, LParam);
 My_Message2: Result := MyMessage2(WParam, LParam);
 end;
end;
對于，TPoint繼承自 TCad， CadPerform函數實現如下。
function TPoint.CadPerform(Msg: Cardinal; WParam, LParam: Longint): Longint;
begin
 Case Msg of
 My_Message1: Result := MyMessage1(WParam, LParam); //屏蔽了TCad中此操作類型的處理
 My_Message3: Result := MyMessage3(WParam, LParam);
 else Result := inherited CadPerform(Msg, WParam, LParam);
 end;
end;

*說明：
因為，我們對圖形對象的操作會非常頻繁，所以我們通過定義一個公共開放的接口函數來實現，類的高封裝性和程序的易維護性、好擴展等性能。
*//

{ No. 12 }

以下是我編程時的要求：（部分信息沒有語言限制）
//以下的解決方案，幾乎都可以在上面的方法中，找到
1、減少程序的復雜度。a、減少函數個數，使用Case、Tag方式，學習實現Perform定義方式；b、減少單元嵌套關系，使用消息傳遞方式，減少窗體單元的互相包含。
2、減少

{ No. 13 }使用廣播，實現管理類對管理列表對象的通知

//對于{ No. 12 } 項目描述中，當畫圖的窗體控件屬性或狀態改變時，經常會需要通知所有的圖形對象，進行相應的改變。
//則如果只定義一個廣播函數，就可以實現父子通知的話，也會提高程序的可重用性、擴展性、易維護性等，使類結構清晰。

//比如：1、在Visio和MapInfo中，如果當前窗體的比例尺（縮放比例）改變時，需要用新的比例尺重畫當前所有的顯示圖形對象。2、當當前窗體默認窗體字體改變后，對于默認使用窗體字體顯示文字信息的圖形對象，他們的文字字體也應該相應的改變。

//解決方案，參考TWinControl中，屬性或狀態改變時，通知所有子Controls的處理機制：
procedure TWinControl.NotifyControls(Msg: Word);
var
 Message: TMessage;
begin
 Message.Msg := Msg;
 Message.WParam := 0;
 Message.LParam := 0;
 Message.Result := 0;
 Broadcast(Message);//廣播當前的變更消息
end;
其中：
procedure TWinControl.Broadcast(var Message);
var
 I: Integer;
begin
 for I := 0 to ControlCount - 1 do
 begin
   Controls[I].WindowProc(TMessage(Message));
//改為：with TMessage(Message) do Cads[I].CadPerform(msg, WParam, LParam);
   if TMessage(Message).Result <> 0 then Exit;
 end;
end;
但是，我們處理圖形對象時，可能會直接調用 Cads 的CanPerform公共函數即可

{ No. 14 }需要時，動態創建你的對象

比如：http://www.delphibbs.com/keylife/iblog_show.asp?xid=824 中的
//*******方案二  當需要的時候在創建屬性窗體
uses
...
fProperty;
type
TfrmMyMap = class
  ...
  procedure OnfrmMyMapDestroy(Sender: TObject);
  procedure OnMapGeoSelected(AGeo: TGeometry);
private
  FfrmProperty: TfrmProperty;
  procedure ShowPropertyForm(aVisible: Boolean);
public
end;

procedure TfrmMyMap.ShowPropertyForm(aVisible: Boolean);
begin
if Not Assigned(FfrmProperty) then FfrmProperty := TfrmProperty.Create(Application);
FfrmProperty.Visible := aVisible;
end;

procedure TfrmMyMap.OnfrmMyMapDestroy(Sender: TObject);
begin
if Assigned(FfrmProperty) then FfrmProperty.Free;
end;

procedure TfrmMyMap.OnMapGeoSelected(AGeo: TGeometry);
begin
if Assigned(FfrmProperty) then FfrmProperty.MyRefresh(AGeo);
end;

這里說明了：
1、需要時，動態創建你的對象 FfrmProperty
2、當前對象釋放時，判斷你的對象的合法性，然后釋放動態創建的對象。

 { No. 15 }創建接口還是創建結構

//項目描述：我開發一個表格控件時，如果我將單元格設置為一個Com，則如果表格現實的信息過多的話，則裝載速度無法保證，甚至于有死機的可能。我之所以用Com是為了將來每個單元格的處理和信息都可以在控件外擴展。

我的解決辦法是：對于每個從Cell派生來的控件創建一個實例，通過動態創建若干個結構對象Record來記錄個單元格的信息，如果需要對單元格進行操作，則將結構對象指針賦值給Cell組件，測試結果很令人滿意。

所以，如果需要使用某個Com大量實例的話，盡量管理和維護一個實例，而對于其中的數據可以實行動態創建管理，速度上會有很好的效果。
另外，盡量聲明一個 pMyInterface = ^IMyInterface 借口指針，參數傳遞或使用時，直接使用接口指針，這樣可以減少調用計數函數_AddInft等，如果操作平凡也可以提高速度的。