0
点赞
收藏
分享

微信扫一扫

使代码简洁的 5 条忠告


 写代码是一种艺术。使用Delphi,任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大 小写、命名规则之外,请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题,可能是初学者、甚至一些老鸟都会犯的错误。


忠告一
布尔型变量的赋值操作应该是直接的。例如,在一个if/then/else语句中,if子句将布尔型变量赋值为True,而else子句将其赋为False。下面这段代码的写法是不好的:


​​view plain​​​
​​​print​​​
​​​?​​



1. if If_Love_Delphi then
2. Result:=True
3. else
4. Result:=False;
5.
6. 而这样写就比较好:
7.
8. Result:= If_Love_Delphi;

if If_Love_Delphi then  Result:=True else  Result:=False; 而这样写就比较好: Result:= If_Love_Delphi;

忠告二
避免使用嵌套的if/then/if语句,而用and来代替。下面这段代码太罗嗦:


​​view plain​​​ ​​​print​​​ ​​​?​​



1. if If_Love_Delphi then
2. if If_Love_Linux then
3. TryKylix(Now);
4.
5. 应该这样写:
6.
7. if If_Love_Delphi and If_Love_Linux then
8. TryKylix(Now);


if If_Love_Delphi then  if If_Love_Linux then TryKylix(Now); 应该这样写: if If_Love_Delphi and If_Love_Linux then  TryKylix(Now);
不用担心后面的判断语句会超前执行。Project|Options|Compiler|Syntax Options|Complete Boolean eval选项通常是关闭的(除非你选定这个项),这保证了执行顺序不会颠倒。

综合前两个忠告,假如你有一段这样的代码:


​​view plain​​​ ​​​print​​​ ​​​?​​


1. if If_Love_Delphi then
2. if If_Love_Linux then
3. Result:=True;
4.
5. 就可以把它改成:
6.
7. Result:= If_Love_Delphi and

if If_Love_Delphi then  if If_Love_Linux then Result:=True; 就可以把它改成: Result:= If_Love_Delphi and If_Love_Linux;
简单而言,假如结果取决于一个条件判断,那么,Result:=True或者Result:=False这样的语句就是多 此一举。在初始化布尔型变量的时候,可以给它们赋值。不过根本用不着把一个布尔型变量初始化为False--Delphi在创建这个变量的时候就已经把它 赋职位False了。相似的情况还有:

对象的布尔型属性(Boolean),自动被初始化为False (0);
整型变量(Integer),自动被初始化为 0;
字符串(String),自动被初始化为空字符串。

忠告三
判断布尔型变量的值时,无需用"=True"或者"=False"这样的语句。下面的写法不好:


​​view plain​​​ ​​​print​​​ ​​​?​​


1. if (If_Love_Delphi=True) and
2. then
3. DoNotTryLinux;
4.
5. 对于函数的返回值或者一个属性是布尔型的情况,应该这样写:
6.
7. if If_Love_Delphi and
8. not If_Love_Linux then
9. DoNotTryLinux;

if (If_Love_Delphi=True) and  (If_Love_Linux=False) then    DoNotTryLinux; 对于函数的返回值或者一个属性是布尔型的情况,应该这样写: if If_Love_Delphi and  not If_Love_Linux then DoNotTryLinux;

忠告四
尽量不要用"+"操作符进行字符串合并。这样做效率太低了。下面的例子不好:


​​view plain​​​ ​​​print​​​ ​​​?​​


1. ShowMessage('在下身高'+IntToStr(iHeight)+'米,体重'+IntToStr(iWeight)+'公斤。');
2.
3. 这样写会较好:
4.
5. ShowMessage(Format('在下身高%d,体重%d。', [iHeight,iWeight]));

ShowMessage('在下身高'+IntToStr(iHeight)+'米,体重'+IntToStr(iWeight)+'公斤。'); 这样写会较好: ShowMessage(Format('在下身高%d,体重%d。', [iHeight,iWeight]));

忠告五
尽量多用with语句。它不仅效率高,而且使代码更加易读。比如,这段代码:

​​view plain​​​
​​​print​​​
​​​?​​


1. if Sender if TEdit then
2. if (TEdit(Sender).Text=') or
3. (TEdit(Sender).Text[TEdit(Sender).SelStart]=') or
4. (TEdit(Sender).SelLength=
5. Length(TEdit(Sender).Text))
6. and (Key in ['a'..'z']) then
7. Key:=UpperCase(Key);
8.
9. 就不如这样的代码来得简洁易读:
10.
11. if Sender is TEdit then
12. with Sender as TEdit do
13. if (Text=') or
14. (Text[SelStart]=') or
15. and
16. in ['a'..'z'] then
17. Key:=UpCase(Key);

举报

相关推荐

0 条评论