delphi的面向對象之路1

 規則一：為每一個類創建一個單元（One Class,One Unit）
　　       請始終牢記這一點：類的私有(private)和保護(protected)的部分只對於其他單元中的類和過程（procedure）才是隱藏的.因此，如果你想得到有效的封裝性，你應該為每一個類使用一個不同的單元。對於一些簡單的類，比如那些繼承其他類的類，你可以使用一個共享的單元。不過共享同一個單元的類的數目是受到限制的：不要在一個簡單的單元裡放置超過20個復雜的類
　　規則二：為組件命名（Name Components）
　　為組件使用帶有描述性的名字同樣十分重要。最常見的命名方式是使用類的小寫字母開頭，再加上組件的功能，如BtnAdd 或者editName。
　　規則三：為事件命名（Name Events）
　　       對於事件處理方法給出合適的名字更加重要。如果你對於組件給出了一個合適的名字，那麼系統默認的名字ButtonClick將變成BtnAddClick。雖然從這個名字中我們可以猜到這個事件處理程序的功能，但是我認為使用一個能夠描述該方法的作用的名字，而不是采用Delphi附加的名字是一種更好的方式。例如，BtnAdd按鈕的OnClick事件可以命名成AddToList。這會使得你的程序可讀性更強，特別是當你在這個類的其他方法中調用這個事件處理程序時，而且這會幫助程序員為類似的事件或是不同的組件選用相同的方法。
　　規則四：使用窗體方法（Use Form Methods）
　　       窗體都是一些類，因此窗體的代碼是以方法組織的。你可以向窗體中添加事件處理程序，這些處理程序完成一些特別的功能，而且他們能被其他方法調用。除了事件處理方法外，你還可以向窗體添加完成動作的特別定義的方法以及訪問窗體狀態的方法。在窗體中添加一些公共的（Public）方法供其他窗體調用要比其他窗體直接操作他的組件要好。
　　 
　　規則5：添加窗體構造器（Add Form Constructors）
　　      在運行時創建的第二個窗體除了一個默認的構造器（從Tcomponent 類繼承而來）外還會提供其他特殊的構造器。
　　我建議你重載（Overload）Create方法，添加必要的初始化參數。具體代碼可參見下面的代碼:

　　Public
　　   Constructor Create(Text:string): reintroduce ; overload;
　　Constructor TformDialog.Create(Text:string);
　　Begin
　　   Inherited Create(Application);
　　   Edit1.Text:=Text;
　　End;

　　規則6：避免全局變量（Avoid Global Variables）
　　        應該避免使用全局變量（就是那些在單元的interface 部分定義的變量）。下面將會有一些建議幫助你如何去做。
　　        如果你需要為窗體存儲額外的數據，你可以向窗體類中添加一些私有數據。這種情況下，每一個窗體實例都會有自己的數據副本。你可以使用單元變量（在單元的implementation部分定義的變量）聲明那些供窗體類的多個實例共享的數據。
　　如果你需要在不同類型的窗體之間共享數據，你可以把他們定義在主窗體裡來實現共享，或者使用一個全局變量，使用方法或者是屬性來獲得數據。

　　
　　規則7：永遠不要在Tform1類中使用Form1
　　你應該避免在類的方法中使用一個特定的對象名稱，換句話說，你不應該在TForm1類的方法中直接使用Form1.如果你確實需要使用當前的對象，你可以使用Self關鍵字。
　　規則11：顯示組件屬性（Expose Components PropertIEs）
　　       當你需要訪問其他窗體的狀態時，你不應該直接訪問它的組件。因為這樣會將其他窗體或其它類的代碼和用戶界面結合在一起，而用戶界面往往是一個應用程序中最容易發生改變的部分。最好的方法是，為你需要訪問的組件屬性定義一個窗體屬性。要實現這一點，可以通過讀取組件狀態的Get方法和設置組件狀態的Set方法實現。
　　假如你現在需要改變用戶界面，用另外一個組件替換現有的組件，那麼你只需做的是修改與這個組件屬性相關的Get方法和Set方法，而不必查找，修改所有引用這個組件的窗體和類的源碼。詳細實現方法請參見下面的代碼：

　　private
　　   function GetText:String;
　　   procedure SetText(const Value:String);
　　public
　　   property Text:String;
　　   read GetText write SetText;
　　 function TformDialog.GetText:String;
　　 begin
　　     Result:=Edit1.Text;
　　 end;
　　 procedure TformDialog.SetText(const Value:String);
　　 begin
　　     Edit1.Text;=Value;
　　 end;
　　 

　　規則16：可視化窗體繼承（Visual Form Inheritance）
　　      如果應用得當，這將是一個強大的工具。根據我的經驗，你所開發的項目越大，越能體現它的價值。在一個復雜的程序中，你可以使用窗體的不同等級關系來處理一組相關窗體的多態性（polymorphism）。
　　      可視化窗體繼承允許你共享多個窗體的一些公共的動作：你可以使用共享的方法，公用的屬性，甚至是事件處理程序，組件，組件屬性，組件事件處理方法等等。