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

Question

写代码是一种艺术。使用Delphi，任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大小写、命名规则之外，请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题，可能是初学者、甚至一些老鸟都会犯的错误。
忠告一布尔型变量的赋值操作应该是直接的。例如，在一个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);应该这样写：if If_Love_Delphi and If_Love_Linux then
  TryKylix(Now);不用担心后面的判断语句会超前执行。Project|Options|Compiler|Syntax Options|Complete Boolean eval选项通常是关闭的（除非你选定这个项），这保证了执行顺序不会颠倒。综合前两个忠告，假如你有一段这样的代码：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"这样的语句。下面的写法不好：if (If_Love_Delphi=True) and
  (If_Love_Linux=False) then
    DoNotTryLinux;对于函数的返回值或者一个属性是布尔型的情况，应该这样写：if If_Love_Delphi and
  not If_Love_Linux then
DoNotTryLinux;
忠告四尽量不要用"+"操作符进行字符串合并。这样做效率太低了。下面的例子不好：ShowMessage('在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。');这样写会较好：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);  http://blog.csai.cn/user1/17208/archives/2007/11660.html

Answer 1

ShowMessage(Format('在下身高%d，体重%d。', [iHeight,iWeight])); //花哨了开发时间，影响开发进度。
复杂化了，违法了“简单就是美”定律

Answer 2

有些东西还是看个人习惯的.老兄.
还有些东西是要看情况的.大哥.举个例.if assigned(obj) then
  if obj.IsOK then
     xxx;
上面写得很笨吧,但是如果写成
if (assigned(obj)) and (obj.isOK) then
 xxx;照LZ的意思这样好看,但如果obj为NIL时,就出问题了!

Answer 3

当表达式很长的时候，
if If_Love_Delphi then
if If_Love_Linux then
Result:=True;

Answer 4

ShowMessage(Format('在下身高%d，体重%d。', [iHeight,iWeight])); //花哨了开发时间，影响开发进度。
复杂化了，违法了“简单就是美”定律
就此句而言，确实是麻烦了，楼主说的主要是针对参数多的情况，培养一种规范意识。
补充一下： 在判断分支条件中，最好不要出现与具体数字挂钩的语句如: 
  if cdsData.FieldByName('XXX').asInteger = 1 then  应哪怕只是一句，都应封装为函数后转化为业务语言，这对别人快速理解大段代码很重要即：
  if isLove_Linux then  ....

Answer 5

有些东西还是看个人习惯的.老兄.
还有些东西是要看情况的.大哥.举个例.if assigned(obj) then
  if obj.IsOK then
     xxx;
上面写得很笨吧,但是如果写成
if (assigned(obj)) and (obj.isOK) then
 xxx;照LZ的意思这样好看,但如果obj为NIL时,就出问题了!
=================================================
说得对，我就遇到过。所以什么东西不能一概而论，也不要动不动就是什么忠告啊什么的

Answer 6

忠告四尽量不要用"+"操作符进行字符串合并。这样做效率太低了。下面的例子不好：ShowMessage('在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。');这样写会较好：ShowMessage(Format('在下身高%d，体重%d。', [iHeight,iWeight]));
------------------------------------------------------------------
我也不习惯这样子写
还是第一个简单而且好理解，也不会觉得效率低啊

Answer 7

我是从4月份上班才开始接触Delphi，从一开始养成一个好的习惯。的确很重要，谢谢楼主

Answer 8

从性能上来讲，用+号比用format要快。

Answer 9

为什么都是一样的呢？为什么偏偏没有指针的呢？    使用DELPHI的应该完全掌握指针！原因很简单：“WIN平台上到处是指针（回调窗口函数的使用、线程参数的传递）”
    在DELPHI中其实每一个实现类都是一个指针（你可以把它当做整数），指针只与存的数据联系，当数据被清除时，指针仍然存在.
if assigned(obj) then 当OBJ的数据已被清除，可是if assigned(obj) then仍然为真！
所以在使用完OBJ时应注意OBJ：=NIL；DELPHI其实有意或无意的模糊或隐藏这一点，每一个函数都可以用指针指向
Var
  x: Function(df:Integer);
begin
 x:=@dfFunc;
 x(45); 
end;
在大量数传递时应使用指针，如数组的传递，只是有一个点要注意：“在DELPHI中，当不明白所属的数据是指针还是真实记录的话应用POINTER（P），而在C语言中常用@P”，看了太多的C你会发现，C语像原生的DELPHI，在VCL与函数库中可以看出这一点！指针这个真的很好的东西，越用你会越喜欢，特别是在NT中的NtQuerySystemInformation，你会发现指针的功能太好了，只用个指向，你可以取到你想要的数据！
  指针向任何数的指针，而自身只一个DWORD或INTEGER，多么好的思路啊，可以说无论是DELPHI还是C，在WIN平台下都真的离不开指针。
  好了没时间了。不说了，下次再说。 

Answer 10

LZ在 WU REN ZI DI

Answer 11

楼主说的很好，俺支持。
欢迎大家对楼主继续拍砖。下面的这两个写法：
if assigned(obj) then
  if obj.IsOK then
     xxx;if (assigned(obj)) and (obj.isOK) then
 xxx;结果应该是一样的，应该是不会出现有两位朋友担心出错问题，逻辑操作应该是执行短路运算的。不过这个我没有实验，要我写我肯定是写后面一种方案。

Answer 12

过度简洁与过度冗余都是不妥的。楼主所说的在大多数情况下都是正确的，对于初学者来说，接受这些忠告比较好。对于老手来说，可以酌情处理，
例如：
if ( (is_Love_Delphi AND is_Love_BCB )
  OR (is_Love_VC AND is_Love_Java) ) then
...
等这种复杂的逻辑还是封装为一个函数更好些。而对于很有规律的字符串封装，有的时候用＋可能更容易理解，例如拼SQL语句的时候：
SQL.Text := 'update Table1 set ' + 
  ' Field1=' + Quoteed(Value1) + 
  ', Field2=' + Quoteed(Value2) + 
  ', Field3=' + Quoteed(Value3) + 
  ...
就要比
SQL.Text := (Format('update Table1 set field1=%s,field2=%s,...', [field1,field2]));
更容易维护。

Answer 13

太简洁了就不好读，就像之乎者也用得太多也不好理解。
if not checkbox1.checked then
跟
if  checkbox1.checked =false  then
比较，明显是后者容易阅读理解。