Delphi中使代码简洁的 5 条忠告
写代码是一种艺术。使用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

[解决办法]
ShowMessage(Format( '在下身高%d，体重%d。 ', [iHeight,iWeight])); //花哨了开发时间，影响开发进度。
复杂化了，违法了“简单就是美”定律
[解决办法]
JF
[解决办法]
纯粹接分~~~~
[解决办法]
好贴
[解决办法]
有些东西还是看个人习惯的.老兄.
还有些东西是要看情况的.大哥.举个例.

if assigned(obj) then
if obj.IsOK then
xxx;
上面写得很笨吧,但是如果写成
if (assigned(obj)) and (obj.isOK) then
xxx;

照LZ的意思这样好看,但如果obj为NIL时,就出问题了!
[解决办法]
感谢，并且接分