Delphi之快速設(shè)計(程序設(shè)計篇)

2019-11-18 18:55:40

字體：大中小

供稿：網(wǎng)友

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

二、充分利用Delphi的強(qiáng)制轉(zhuǎn)換：
“As”這個單詞不僅僅在英語中用處極大，在Delphi中亦然！當(dāng)我們想為數(shù)個“同類”組件共享代碼時，即可發(fā)揮她的巨大作用：我們只需為其中一個組件編寫代碼即可。
比如：想讓一組文本編輯框在得到輸入焦點(diǎn)時背景顏色變?yōu)椴枭ソ裹c(diǎn)是恢復(fù)系統(tǒng)顏色，我們可以如此共享代碼（讓每個文本編輯框的事件公用以下代碼）：
procedure TForm1.Edit1Enter(Sender: TObject);
begin
(Sender as TEdit).color:=ClTeal; //得到輸入焦點(diǎn)
end;

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

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

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

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

當(dāng)然，本文的這些小例子僅僅從側(cè)面表述了筆者的一些個人觀點(diǎn)，要充分體現(xiàn)Delphi的高效性，這些還遠(yuǎn)遠(yuǎn)不夠！限于篇幅，關(guān)于數(shù)據(jù)庫以及其他高級話題在這里均未涉及，特別是數(shù)據(jù)庫編程方面，Delphi提供了相當(dāng)?shù)撵`活性！當(dāng)然，萬變不離其宗，只要隨時注意Delphi是完全面向?qū)ο蟮模袑ο缶涂紤]其屬性、事件、方法、繼承、引用等等。

上一篇：Delphi實(shí)用編程經(jīng)驗二則

下一篇：從delphi6,kylix看borland的未來發(fā)展