使代碼簡潔的五條忠告

2019-09-08 23:09:06

字體：大中小

供稿：網(wǎng)友

寫代碼是一種藝術(shù)。使用Delphi，任何人都可以輕而易舉地開發(fā)出某種軟件、完成某些任務(wù)。而完美的代碼則只有真正的高手才能寫出。除了正確的縮進(jìn)、大小寫、命名規(guī)則之外，請(qǐng)時(shí)刻牢記愛因斯坦的名言--簡單就是美。下面將談及的五個(gè)代碼問題，可能是初學(xué)者、甚至一些老鳥都會(huì)犯的錯(cuò)誤。

忠告一

布爾型變量的賦值操作應(yīng)該是直接的。例如，在一個(gè)if/then/else語句中，if子句將布爾型變量賦值為True，而else子句將其賦為False。下面這段代碼的寫法是不好的：

if If_Love_Delphi then
Result:=True
else
Result:=False;

而這樣寫就比較好：

Result:= If_Love_Delphi;

忠告二

避免使用嵌套的if/then/if語句，而用and來代替。下面這段代碼太羅嗦：

if If_Love_Delphi then
if If_Love_Linux then
TryKylix(Now);

應(yīng)該這樣寫：

if If_Love_Delphi and If_Love_Linux then
TryKylix(Now);

不用擔(dān)心后面的判斷語句會(huì)超前執(zhí)行。Project|Options|Compiler|Syntax Options|Complete Boolean eval選項(xiàng)通常是關(guān)閉的（除非你選定這個(gè)項(xiàng)），這保證了執(zhí)行順序不會(huì)顛倒。

綜合前兩個(gè)忠告，假如你有一段這樣的代碼：

if If_Love_Delphi then
if If_Love_Linux then
Result:=True;

就可以把它改成：

Result:= If_Love_Delphi and If_Love_Linux；

簡單而言，假如結(jié)果取決于一個(gè)條件判斷，那么，Result:=True或者Result:=False這樣的語句就是多此一舉。在初始化布爾型變量的時(shí)候，可以給它們賦值。不過根本用不著把一個(gè)布爾型變量初始化為False--Delphi在創(chuàng)建這個(gè)變量的時(shí)候就已經(jīng)把它賦職位False了。相似的情況還有：

對(duì)象的布爾型屬性(Boolean)，自動(dòng)被初始化為False (0)；
整型變量(Integer)，自動(dòng)被初始化為 0；
字符串(String)，自動(dòng)被初始化為空字符串。

忠告三

判斷布爾型變量的值時(shí)，無需用"=True"或者"=False"這樣的語句。下面的寫法不好：

if (If_Love_Delphi=True) and
(If_Love_Linux=False) then
DoNotTryLinux;

對(duì)于函數(shù)的返回值或者一個(gè)屬性是布爾型的情況，應(yīng)該這樣寫：

if If_Love_Delphi and
not If_Love_Linux then
DoNotTryLinux;

忠告四

盡量不要用"+"操作符進(jìn)行字符串合并。這樣做效率太低了。下面的例子不好：

ShowMessage(''在下身高''+IntToStr(iHeight)+''米，體重''+IntToStr(iWeight)+''公斤。'');

這樣寫會(huì)較好：

ShowMessage(Format(''在下身高%d，體重%d。'', [iHeight,iWeight]));

忠告五

盡量多用with語句。它不僅效率高，而且使代碼更加易讀。比如，這段代碼：

if Sender if TEdit then
if (TEdit(Sender).Text='') or
(TEdit(Sender).Text[TEdit(Sender).SelStart]='') or
(TEdit(Sender).SelLength=
Length(TEdit(Sender).Text))
and (Key in [''a''..''z'']) then
Key:=UpperCase(Key);

就不如這樣的代碼來得簡潔易讀：

if Sender is TEdit then
with Sender as TEdit do
if (Text='') or
(Text[SelStart]='') or
(SelLength=Length(Text)) and
(Key in [''a''..''z''] then
Key:=UpCase(Key);

上一篇：檢測驅(qū)動(dòng)器容量

下一篇：AutoCAD調(diào)用技巧