Delphi之快速設計(程序設計篇) (2001年4月5日) 

網友更新  分類:數據庫   作者:nil  推薦:erudition   閱讀次數:349  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
*本文涉及的所有代碼均在WinNt 4、Delphi4 C/S下正確運行通過。
由于Delphi采用了真正的完全面向對象方法、當今世界最快的編譯器以及領先的數據庫技術，特別是她對Windows API的完全兼容，出色的代碼自動生成能力……人們已經看到，在短短的幾年當中，Delphi已在眾多的開發工具中脫穎而出！正是Delphi的諸多優秀品質，使程序員能在很短的時間內開發出極具專業水準的運用軟件，而所做的工作卻是相當的少！
正所謂Let's us make better!我們應怎樣充分利用Delphi的優勢來更加快速地進行程序設計程序呢？
一、充分利用代碼完全共享(句檳)：
我們這樣做的目的不僅僅是為了“偷懶”，這也是優化程序代碼的一種方法。當然，首先要考慮的是能不能共享（這很簡單，看看是否包含在該事件的下拉集合中），其次是要注意的是共享后有沒有“麻煩”，因為正確是第一步，在保證正確的情況下才有必要去追求優化！
比如：我們在用戶刪除數據前給出一確認消息：
procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
//確認刪除記錄
if MessageBox(handle,'確實要刪除當前記錄嗎？','確認',MB_IconQuestion+MB_YesNo)=IDNO then
Abort;
end;
那么，你只要愿意讓用戶在刪除數據記錄前進行確認均可在TDataSet.BeforeDelete事件（Table2的BeforeDelete，Table3的BeforeDelete……）中完全共享這段代碼。好運不會天天有，在有的時候就不這么直接、簡單了……

二、充分利用Delphi的強制轉換：
“As”這個單詞不僅僅在英語中用處極大，在Delphi中亦然！當我們想為數個“同類”組件共享代碼時，即可發揮她的巨大作用：我們只需為其中一個組件編寫代碼即可。
比如：想讓一組文本編輯框在得到輸入焦點時背景顏色變為茶色，失去焦點是恢復系統顏色，我們可以如此共享代碼（讓每個文本編輯框的事件公用以下代碼）：
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(Sender as TEdit).color:=ClTeal; //得到輸入焦點
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
(Sender as TEdit).color:=ClWindow; //失去輸入焦點
end;

三、不起眼的Tag屬性：
上面的例子似乎有點太特殊了，萬一我只對其中某些組件特別關照怎么辦？仍以上面的為例，比如其中有兩個文本輸入框需要輸入數字，為引用戶注意，得到焦點時顏色變為蘭色，但我仍然然不想為每個組件分別寫代碼。
要解決這個問題可利用組件的Tag屬性，先為要特別處理的組件分配非零、不等的Tag（必須說明的Delphi不會檢查Tag值是否相等，設計時自己掌握）；然后如下編寫代碼，就可依然實現共享：
procedure TForm1.Edit1Enter(Sender: TObject);
begin
case (Sender as TEdit).Tag of
10,20:(Sender as TEdit).Color:=clBlue //輸入數字的文本框
else
(Sender as TEdit).Color:=clTeal; //其余文本框
end;
end;

四、充分利用Delphi的CodeInsight技術： 
（以下言論均假設在Delphi的默認條件之下）
1、利用Self關鍵字：
也許有人以為我搞錯了！其實，這里要向大家介紹的是筆者（因記性太差）“慣犯”的又一“伎倆”。在有的時候，我們可能記不準組件的確切名字（Name）了，這時你要是再返回窗體表格去確認一遍的話（大多數的朋友應該是這樣的）未免有點太對不起時間了，此時你要是利用Self就特別省力，因為Self在Delphi中是顯式地引用該組件所在的窗體，因此，我們可以輸入Self后加一逗點以此激活Delphi的Code Completion，此時系統會立即為你顯示一包含該窗體所有組件及窗體本身屬性的下拉列表，你從中選擇所需組件即可。這樣，就避免了來回切換窗體表格的這一工作量。
2、利用代碼補缺（Code Completion）：
我們現在再也沒有必要讓自己去記憶太多的參數細節了，因為有了Delphi的代碼補缺功能。在具體解釋之前，還要羅嗦一點，Delphi的Code Completion默認的快捷鍵會與我們已用的某些快捷鍵沖突（如Ctrl+Space就與我們打開、關閉漢字輸入法的快捷鍵沖突），因此請先解決這個問題。
當然，Code Completion一般會自動激活，但是不要以為就萬事大吉了，本人認為Delphi的此項技術應向VB學習，此言怎講？舉例來說吧：當你輸入StrToint(edit1.后，Delphi不會自動顯示edit1的屬性，此時你就將用Ctrl+Space來激活Code Completion，特別是嵌套很深的時候，Delphi似乎也糊涂了。
3、利用代碼參數（Code Parameters）：
激活快捷鍵是Ctrl+Shift+Space。這項功能也是Delphi自動實現的，正如上述所言，當我們來回切或是光標移走時，這項功能也就隨之消失了，當我們需要確認該函數的具體參數時即可以此快捷鍵打開。
4、利用代碼模板（Code Templates）： 
這項技術再次體現了Inprise公司Delphi開發組的工程師們高超的技術及處處為用戶著想的高尚品德！（只是不希望再聽到又有人被微軟挖走的消息）
激活快捷鍵是Ctrl+J。此項功能實現機制與代碼補缺的差不多，只是她不是自動的，當然最另令人激動的一面是用戶可以定義自己的模板。比如筆者定義的一個模板：快捷-〉“msg”；代碼-〉“MessageboxMessageBox(
handle,'|','',MB_Icon...+MB_...);”，只要一輸入msg然后按Ctrl+J整個代碼“脫穎而出”，并把光標幫我移到我該補充輸入的地方，簡直爽呆了！
注意：如果你為自己定義了很多可愛的模板舍不得丟掉的話，不妨把...Delphi4\Bin目錄下的Delphi32.dci文件備份,重新安裝Delphi后以此文件覆蓋即可。

五、能偷懶時就偷懶：
這個話題本不應該寫在這里，但還是忍不住……
1、能利用對象觀察器直接設置且不會影響程序正常運行的就沒有必要去寫代碼：
由于這個話題涉及面太廣，此處僅舉一例說明：比如要在Delphi4中實現在狀態欄上的自動提示，又沒有太“苛
刻”的條件時，我們沒有必要再像以前一樣，先定義一個過程（ShowMyHint(...)），然后在程序初始化的地方
把她賦值給TApplication的OnHin事件。因為只需將狀態條的AutoHint屬性設為True即可！當然，她似乎只能在
第一個Panel上顯示（這就是沒有太“苛刻”的條件時）。當然，怪我羅嗦，有的朋友居然不知道Delphi的Hint
屬性由兩部分組成，此處不是說話之地，感興趣請到筆者的個人主頁上去遛遛www.zg169.net/~delphiok（剛開
張，東西還不多）。
2、節省代碼：
能夠少寫代碼就沒有必要多寫代碼，能夠精煉就不要冗余：
比如，以下的兩段代碼實現的功能完全相同，你喜歡用哪段？
代碼段一：
if ToolButton1.Down=true then
begin
Dbgrid1.show;
DelBtn.Enabled:=true;
end
else
begin
Dbgrid1.Hide;
DelBtn.Enabled:=false;
end;
代碼段二：
Dbgrid1.Visible:=ToolButton1.Down;
DelBtn.Enabled:=ToolButton1.Down;
因此，我們寫完程序后，不要僅僅追求程序調通，不妨也給程序代碼炸炸油。
3、節省變量：
有的程序員在不需要變量的地方定義了變量，在需要變量的地方定義了多余的變量，我個人認為這都不是好的
習慣，特別是動不動就定義全局變量更是值得商榷。有的讀者可能認為我是一個守財奴，現在的處理器速度都
什么年代了……但我只簡單的給你展示一段代碼你就明白了：
procedure TForm1.Button1Click(Sender: TObject);
Var s1,s2:String;
begin
s1:=Inputbox('數據','請輸入用戶姓名','');
if s1<>'' then
begin
Btn_Name.Enabled:=True;
s2:=Inputbox('數據','請輸入用戶住址','');
if s2<>'' then
Btn_Adress.Enabled:=True;
end;
end;

當然，本文的這些小例子僅僅從側面表述了筆者的一些個人觀點，要充分體現Delphi的高效性，這些還遠遠不夠！限于篇幅，關于數據庫以及其他高級話題在這里均未涉及，特別是數據庫編程方面，Delphi提供了相當的靈活性！當然，萬變不離其宗，只要隨時注意Delphi是完全面向對象的，有對象就考慮其屬性、事件、方法、繼承、引用等等。 
 
 


--------------------------------------------------------------------------------