一、老生長(cháng)談
Delphi VS VC已經(jīng)是很古老的話(huà)題了，但是我還是想在這里談一下，全是一家之言，如果不同意，請一笑之。
RAD的好處是很易見(jiàn)的，界面的設計上Delphi實(shí)在是高過(guò)VC。我要寫(xiě)一個(gè)非常規的透明按鈕，Delphi只要找個(gè)控件，點(diǎn)一下鼠標，修改一下Caption就OK了，VC呢？至少要寫(xiě)上10幾行代碼才能搞定，當然MFC的做法讓人了解windows底層的原理，但是OOP的封裝性沒(méi)有很好的體現，開(kāi)發(fā)者要了解所有的底層才能寫(xiě)代碼，對我對大多數的入門(mén)者是個(gè)折磨，因為沒(méi)必要，現在是開(kāi)發(fā)期限永遠緊張，時(shí)間永遠不夠，我們不能指望程序員知道Windows編程的所有的方面，有人對視頻很了解，有人對網(wǎng)絡(luò )很在行，但是沒(méi)有人是全才，樣樣在行是不現實(shí)的，所以封裝是很重要的。如果每次開(kāi)發(fā)新產(chǎn)品我都要在一個(gè)透明按鈕或者一個(gè)漂亮的界面上花30%甚至更多的時(shí)間，那我就去跳河：）Delphi在界面上的確比MFC好！當然不是說(shuō)MFC就設計不出漂亮的界面，只是花費的時(shí)間太長(cháng)，不值得。
RAD就真的全是好處？也不是。至少對于初學(xué)者不是，因為它讓人誤會(huì )編程只是動(dòng)動(dòng)鼠標，拉拉框架，最后的結果就是讓人覺(jué)得，Delphi就是用來(lái)寫(xiě)界面的，底層什么都不能做。好像MFC程序員都是這么講Delphi程序員的：“你們的程序除了界面漂亮，還能做什么？”錯！其實(shí)除了DDK，Delphi什么不能開(kāi)發(fā)？API的頭文件Delphi哪個(gè)沒(méi)有？Borland沒(méi)有轉換的，JEDI都轉換了，即使JEDI沒(méi)有轉，自己動(dòng)手也是一樣的，只要給我C的頭文件，我就可以轉換，JEDI上那篇短短的轉換說(shuō)明應該是每個(gè)Delphi程序員的必備文檔。頭文件轉換了，剩下的就是開(kāi)寫(xiě)了，MFC能做的，Delphi也可以！視頻？網(wǎng)絡(luò )？directx？Audio？哪個(gè)Delphi不能做？
二、子過(guò)程
寫(xiě)一個(gè)事件，很多人就是直接開(kāi)寫(xiě)，不管代碼有多長(cháng)，做的事情有多少，只要是在一個(gè)事件里做的，一古腦寫(xiě)下去，結果是幾個(gè)月后重新修改的時(shí)候無(wú)從下手，因為代碼段實(shí)在太長(cháng)了。那么為什么不把代碼段拆開(kāi)呢？人的注意力有有限的，超過(guò)100行的代碼一口氣看下來(lái)會(huì )暈的，Delphi的前輩告訴我一件事情：所有的過(guò)程（這里的過(guò)程包括procedure和function）不要超過(guò)25行！因為這個(gè)長(cháng)度的代碼看起來(lái)不會(huì )讓你頭暈，你會(huì )很容易了解這個(gè)過(guò)程要做的事情。
那么怎么把原本在一個(gè)事件做的事情拆開(kāi)呢？方法很多，我的經(jīng)驗是模塊化。比如一個(gè)事件里要做很多不同的事情，那么就把不同的事情化為不同的子過(guò)程，然后在主過(guò)程里調用，主過(guò)程里大多數就是一些判斷和循環(huán)，不會(huì )出現具體的實(shí)現過(guò)程，這樣會(huì )生出很多的代碼段，但是會(huì )讓你的注意力集中！
原則：一個(gè)過(guò)程只做一件事情，并且做好它。
參考：VCL的源代碼?？纯碫CL的源代碼，很少有超過(guò)25行的代碼段！
三、參數名
記得當初學(xué)SDK的時(shí)候，我一看到匈牙利表示法就頭暈，太多了！記不住??！所以我恨那個(gè)發(fā)明者：）終于Delphi出現了，戴著(zhù)鐐銬跳舞的日子過(guò)去了！在Delphi里，定義一個(gè)字符串用strDoSometing這樣的變量名是可笑的和不必要的。只要你的過(guò)程很短，不出現全局變量，就不需要這樣的前綴。比如：
procedure SubPro;
var
i : byte;
Width, Height : integer;
begin
Width := GetWidth;
Height := GetHeight;
for i:=0 to 9 do
begin
DrawThread := TDrawThread.Create;
DrawThread.Width := Width;
DrawThread.Height := Height;
DrawThread.Start;
end;
end;
我想這樣的代碼段雖然沒(méi)有注釋?zhuān)埠苋菀字浪龅氖虑?。所以，請去掉所有的前綴和下劃線(xiàn)，Delphi的程序不需要這些！我們的參數名只要動(dòng)詞+名詞就可以，只要說(shuō)明這個(gè)參數的作用就可以，多余的東西我們不要，簡(jiǎn)單就是美，Pascal的好處就在于代碼像在說(shuō)話(huà)，而不是讀天書(shū)，你的腦袋里是怎么想的，代碼就是什么樣子的。優(yōu)美、簡(jiǎn)單，這是Pascal的好處，請遵守！
原則：簡(jiǎn)單就是美！
四、子窗口
很多人在調用子窗口的時(shí)候是直接對子窗口里的控件操作的，比如：
if SetAlarmParamDlg.ShowModal = MrOK then
begin
AlarmTimes := StrToInt(SetAlarmParamDlg.Edit1.Text);
AlarmArea := SetAlarmParamDlg.SpinEdit1.Value;
end;
天，假如明天用戶(hù)覺(jué)得你用的Edit或者SpinEdit的樣子難看，換了一個(gè)漂亮的控件，你怎么辦？不但要修改子窗口的代碼，還要修改主窗體的代碼。一兩個(gè)子窗口的程序當然不會(huì )讓你痛苦，假如是一個(gè)有二十多個(gè)子窗體的程序呢？花一天的時(shí)間，原因卻只是因為換了一個(gè)控件！為什么不換一個(gè)方法？把要用的參數用屬性表示，你會(huì )少寫(xiě)無(wú)數的代碼。
// 主窗體
if SetAlarmParamDlg.ShowModal = MrOK then
begin
AlarmTimes := SetAlarmParamDlg.AlarmTimes;
AlarmArea := SetAlarmParamDlg.AlarmArea;
end;
// 子窗體
interface
private
FAlarmTimes : integer;
FAlarmArea : integer;
published
property AlarmTimes : integer read FAlarmTimes write FAlarmTimes;
property AlarmArea : integer read FAlarmArea write FAlarmArea;
implementation
...
FAlarmTimes := StrToInt(Edit1.Text);
FAlarmArea := SpinEdit1.Value;
ModalResult := MrOK;
...
只要這樣堅持下來(lái)，你會(huì )發(fā)現好處大大的，一個(gè)子窗口只做他自己的事情，主窗口和他的交互是通過(guò)屬性來(lái)做的，只要接口不變，子窗口的修改不會(huì )影響到主窗口的代碼，不管子窗口的樣子怎么變換，控件怎么更換，代碼怎么修改，整個(gè)程序都還是老樣子，只是界面變了而已。
原則：模塊化你的子窗口，窗口也是類(lèi)，類(lèi)之間怎么通信，窗口之間就應該怎么通信
對該文的評論
xrenwu ( 2002-04-21)
不錯，非常好！
oldsword ( 2002-04-01)
duxinrun:
我寫(xiě)的這些的確是很小兒科的東西,你既然看不上,就歡迎你寫(xiě)點(diǎn)好東西出來(lái)讓大家學(xué)習學(xué)習,謝謝.
duxinrun ( 2002-03-31)
這些原則也并非僅僅適用于Delphi，所有的OOP不都應該是這樣么？
這也不是Delphi自己的特色阿。
aifudi ( 2002-03-31)
學(xué)好delphi是我得心愿 我相信微軟并沒(méi)有讓所有的人都去學(xué)vb vc的實(shí)力～！～
igand ( 2002-03-30)
我一向就認為DELPHI 比VC好,再接觸程序以前,一直聽(tīng)別人講VC好,后來(lái)就去學(xué)了,越學(xué)越學(xué)不懂,后來(lái)改行學(xué)BCB現在再學(xué)DELPHI,很好啊
一、關(guān)于界面
界面對于一個(gè)程序，仿佛就是容貌對于一個(gè)人，重要性是不言而喻的。
一個(gè)程序的界面做的很漂亮是很好，但是如果界面不能很好的反映功能，那再漂亮的界面都是垃圾一堆，這方面我是有體會(huì )的，當你的大部分精力全放在如何
做一個(gè)漂亮的界面的時(shí)候，災難就降臨了，你將永遠無(wú)法把程序的功能做好！如果想把程序做好，就不要考慮漂亮的界面，等到功能全部實(shí)現的時(shí)候，界面自然
就會(huì )出現，到時(shí)候美化也不遲。
這個(gè)問(wèn)題上，Delphi的程序員可能遇到的最多，因為滿(mǎn)天飛的都是漂亮的控件，這個(gè)也好，那個(gè)也好，不用真是可惜，于是找個(gè)一堆控件，一個(gè)個(gè)的試驗過(guò)來(lái)
，功能全然不顧。其實(shí)用戶(hù)用一個(gè)軟件，不是因為界面漂亮，而是因為功能強。即使是在DOS窗口下跑的程序，只要功能強，用戶(hù)照樣會(huì )津津有味的使用，如果功
能弱的一塌糊涂，即使界面做成無(wú)比酷，最后的命運也是被刪除。所以，寫(xiě)一個(gè)軟件的時(shí)候，請首先從功能入手，而不是界面！
那么是不是不用考慮漂亮的界面呢？也不是。終究漂亮的界面是很吸引眼球的，但是要是按照我的意思，先弄個(gè)普通的界面，最后美化，會(huì )造成一個(gè)問(wèn)題，就
是要修改很多代碼，比如：
procedure TMainForm.Button1Click(Sender : TObject)
begin
FWidth := StrToInt(Edit1.Text);
FHeight := StrToInt(Edit2.Text);
FScreenSize := FWidth * FHeight;
end;
上面的代碼運行的時(shí)候是沒(méi)有什么問(wèn)題的，但是一旦你換了一個(gè)Edit控件，或者是只是換了Edit的名字，工作量就出來(lái)了，一個(gè)兩個(gè)的變化還沒(méi)有問(wèn)題，假如
這個(gè)Edit1.Text在代碼里出現了100多個(gè)地方呢？怎么辦？我的方法是把程序的界面和功能分開(kāi)！代碼盡量不要和具體的控件相關(guān)聯(lián)。如下：
procedure TMainForm.SetParam(const Width, Height : string);
begin
FWidth := StrToInt(Width);
FHeight := StrToInt(Height);
FScreen := FWidth * FHeight;
end;
procedure TMainForm.Button1Click(Sender : TObject)
begin
SetParam(Edit1.Text, Edit2.Text);
end;
這個(gè)例子有點(diǎn)極端，好像是畫(huà)蛇添足，但是當你大量的修改控件或者更換控件名字的時(shí)候，作用就顯示出來(lái)了。到你最后想美化界面的時(shí)候，修改代碼的工作
量會(huì )減輕很多。因為只要傳入的參數更換一次就可以，而不是在無(wú)數的地方進(jìn)行修改。
原則：界面和實(shí)現分開(kāi)
二、全局變量
不要使用全局變量?。?！即使設定的全局變量你認為一萬(wàn)年也不會(huì )變，也不要使用，因為說(shuō)不定那天修改了一個(gè)功能，這個(gè)全局變量就要拆成兩個(gè)變量了，那
么問(wèn)題就會(huì )出現，還是通過(guò)參數傳遞吧。還是來(lái)個(gè)例子：
//main
const
ShowWidth = 384;
ShowHeight = 288;
...
// SetParamDlg 子窗口
SpinEdit1.Value := MainForm.ShowWidth;
SpinEdit2.Value := MainForm.ShowHeight;
上面的代碼工作的不錯，但是假如有一天客戶(hù)說(shuō)我要分辨率可變，怎么辦？在const里重新加入ShowWidth1、ShowWidth2、、、？最后const的體積會(huì )越來(lái)越大
，查const的時(shí)候會(huì )累死你，那換一種方法：
//main
function ReadWidth : integer;
function ReadHeigth : integer;
SetParamDlg.Width := ReadWidth;
SetParamDlg.Height := ReadHeight;
//SetParamDlg
SpinEdit1.Value := FWidth;
SpinEdit2.Value := FHeight;
是不是比較好一點(diǎn)？
原則：盡量在一開(kāi)始設計的時(shí)候把所有看起來(lái)目前不會(huì )變化的參數也做成動(dòng)態(tài)的。
三、一個(gè)小問(wèn)題
這是我在一個(gè)網(wǎng)站上看到的，比較有意思，而且感覺(jué)很容易犯，這里就抄襲一下了，不過(guò)這只是編程技巧，不是方法
function sum(a : array of word; count : word) : longword;
var
i : word;
begin
result := 0;
for i := 0 to count - 1 do inc(result, a[ i ]);
end;
上面的代碼有問(wèn)題么？乍看是沒(méi)有問(wèn)題，但是說(shuō)不定什么時(shí)候他就當掉了。為什么？因為Count是個(gè)WORD，假如傳入參數的時(shí)候Count=0會(huì )發(fā)生什么事情呢？對
了，WORD翻轉了，那就等他循環(huán)FFFF次吧：）所以請注意無(wú)符號類(lèi)型的操作！
累了，自己都感覺(jué)沒(méi)寫(xiě)好，休息ing，歡迎磚頭，歡迎高手來(lái)發(fā)表意見(jiàn)....
作者Blog：
http://blog.csdn.net/oldsword/對該文的評論
xrenwu ( 2002-04-21)
寫(xiě)的好！
myun ( 2002-04-03)
very good,希望這位大俠多多發(fā)表相關(guān)文章啊!
hobo2000 ( 2002-04-03)
非常贊同agui?。?！
我平時(shí)編程也那樣子。
ngkai ( 2002-04-03)
第三個(gè)問(wèn)題的錯誤不是出在count的類(lèi)型為word，而是i的類(lèi)型為word引起的。
count -1的值仍是正確的-1不過(guò)由于i是無(wú)符號的，所以對于i來(lái)說(shuō)就變成了FFFF
這里應該用integer做為i的類(lèi)型，一般的情況下都不會(huì )用word類(lèi)型的。
（所有的書(shū)上或borland的demo中都不會(huì )找到用unsigned類(lèi)型做計數器的)
用無(wú)符號類(lèi)型進(jìn)行運算不需要注意任何問(wèn)題，關(guān)鍵是對無(wú)符號類(lèi)型進(jìn)行賦值時(shí)要注意。
agui ( 2002-04-02)
說(shuō)兩句：
1、界面
最好是熟悉很多標準界面，熟悉諸多控件，這樣在設計界面時(shí)才能得心應手。最好是用比較標準化的界面，當然這跟需求很有關(guān)系，需求應盡可能詳盡。如果，碰上一個(gè)對奇異界面有偏好的客戶(hù)（而且說(shuō)不服他），就只怪自己倒楣了。不要更換控件，除非它的功能不夠使了（這肯定也是不熟悉控件所帶來(lái)的）。盡量使用熟悉的控件，不熟悉的控件會(huì )給你帶來(lái)很多麻煩。即使象老兄這樣精心設計了代碼，修改起來(lái)也是很費勁的。不過(guò)，非要換控件時(shí)，我通常不是換控件的名字，而只是更換控件的類(lèi)別，方法有：剪切到文本編輯器中，修改控件類(lèi)的名字，然后刪除不應有的屬性，再粘貼回來(lái)。而且我一般不使用Edit1, Edit2這類(lèi)名字，一般是edtName, edtPassword, edtAddress等等有意義的名字。
2、全局變量
贊同盡量減少使用，比較能用得糟的情況，是使用Form變量。除了主Form和DataModule，我一般不會(huì )讓窗體自動(dòng)創(chuàng )建，而且幾乎不會(huì )使用那些自動(dòng)產(chǎn)生的Form變量。我反對在Form中來(lái)回調用，如兄臺所舉的例子SpinEdit1.Value := MainForm.ShowWidth，這造成了SetParamDlg的不通用。試想，如果想把SetParamDlg用到另外一個(gè)地方，另一個(gè)工程，該工程的主窗口變量不叫MainForm，結果該語(yǔ)句就通不過(guò)編譯。這樣做的結果是：要么SetParamDlg不能通用，要么主窗體就得改名字。而且SetParamDlg必須要Uses MainForm所在的單元，形成了一個(gè)循環(huán)Uses。
再設想一下，如果想讓不同的Form或甚至非Form的地方調用SetParamDlg，如Form1也調用，Form2也調用，而把SpinEdit1.Value := MainForm.ShowWidth改成SpinEdit1.Value := Form1.Param1，那么如果在Form2調用時(shí)，Form1并未創(chuàng )建或已經(jīng)銷(xiāo)毀，這一句肯定就會(huì )出錯了。
我的一貫做法是：Form都是單向調用的，這樣被調用的Form可以復用到其它場(chǎng)合。參數通過(guò)被調用Form的某方法或可寫(xiě)屬性傳入，而結果參數的傳回可以通過(guò)方法的引用參數、返回值（想想Form的ShowModal的返回值）、或屬性。還有一個(gè)方法是事件，可以在事件處理方法的參數中傳回，這種方法適用于被調用的Form是模式的（用ShowModal顯示的，控制不能馬上返回）且需要多次返回結果或反饋被調用Form的變化（你可以彈出一個(gè)窗體設置工具欄按鈕有沒(méi)有文字標簽，而且能夠馬上在調用窗體上反饋給用戶(hù)）。
但有時(shí)候會(huì )無(wú)可奈何地碰上，這時(shí)候我會(huì )把所有的全局變量做成一個(gè)類(lèi)中的數據成員，通過(guò)屬性或方法接口取得。而因為類(lèi)的實(shí)例只有一個(gè)，可以在程序開(kāi)始時(shí)創(chuàng )建及返回時(shí)銷(xiāo)毀。
3、數組參數
在Delphi中，不需要傳遞數組的數目，可以這么寫(xiě)：
function sum(a : array of word): longword;
var
i: Integer; // 不要用word做循環(huán)變量的類(lèi)型
begin
result := 0;
for i := Low(a) to High(a) do // Low和High函數可以取得數組下標的邊界值
inc(result, a[ i ]); // 對不起，我喜歡在這里折行
end;
