• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

使代码简洁的5条忠告-Delphi

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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

 

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

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

 

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

  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);  


不用担心后面的判断语句会超前执行。Project|Options|Compiler|Syntax Options|Complete Boolean eval选项通常是关闭的(除非你选定这个项),这保证了执行顺序不会颠倒。

 

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

  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_Love_Linux;  


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

 

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

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

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

 

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

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

 

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

  1. if Sender is 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.    (SelLength=Length(Text)) and  
  16.    (Key in ['a'..'z'then  
  17.   Key:=UpCase(Key); 
http://vir.jxstnu.edu.cn/xieyunc/read.php?29

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi图像处理--RGB与HSV转换发布时间:2022-07-18
下一篇:
VC,BCB,C#,Delphi,Java的委托方案发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap