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://www.delphifans.com/infoview/Article_807.html

Answer 1

广告：
请人来帮我解决一下这个问题，在线等了一天多了。（不是病毒，CSDN上的贴子）
http://community.csdn.net/Expert/topic/5239/5239077.xml?temp=.2326624

Answer 2

(*//
标题:Delphi中建议使用的语句
整理:Zswang
连接:http://www.csdn.net/Expert/TopicView1.asp?id=724036
日期:2002-06-22
支持:wjhu111#21cn.com
//*){ No.1 判断逻辑类型 }
var B: Boolean;
begin
  B := Boolean(2); //这样只是为了调试//B := True;
  if B = True then ShowMessage('B = True'); //不建议//不安全
  ///////
  if B then ShowMessage('B'); //建议//简短
end;var B: Boolean;
begin
  if Edit1.Text = '是' then //不建议//烦琐
    B := True
  else B := False;
  ///////
  B := Edit1.Text = '是'; //建议//简短
end;{ No.2 临时SQL查询 }
begin
  QueryTemp.Close;
  QueryTemp.SQL.Text := 'SELECT SUM(金额) AS 合计 FROM 销售表';
  QueryTemp.Open; //不建议//数据没有关闭造成资源浪费
  ShowMessage(Query1.FieldByName('合计').AsString);
  /////
  QueryTemp.SQL.Text := 'SELECT SUM(金额) AS 合计 FROM 销售表';
  QueryTemp.Open;
  ShowMessage(Query1.FieldByName('合计').AsString);
  QueryTemp.Close; //建议用//使用完就关闭
end;{ No.3 获取记录数 }
var
  vRecordCount: Integer;
begin
  Query1.SQL.Text := 'SELECT * FROM Table1'; //不建议//严重浪费资源，会取得很多不必要得信息
  Query1.Open;
  vRecordCount := Query1.RecordCount;
  Query1.Close;
  /////
  Query1.SQL.Text := 'SELECT COUNT(*) AS 记录数 FROM Table1'; //建议//快速有效、只处理一条记录
  Query1.Open;
  vRecordCount := Query1.FieldByName('记录数').AsInteger;
  Query1.Close;  ShowMessage(IntToStr(vRecordCount));
end;{ No.4 字段赋值 }
begin
  Table1.Edit;
  Table1.FieldByName('姓名').AsString := Edit1.Text; //不建议
  Table1.FieldByName('日期').AsDateTime := Date;
  /////
  Table1['姓名'] := Edit1.Text; //建议//简短、扩充性好
  //Table1.Fieldvalues['姓名'] := Edit1.Text; //Borland建议的方法。以及ParamValues[]
  Table1['日期'] := Date;
end;{ No.5 使用Self指针 }
begin
  Edit1.Parent := Form1; //不建议//Form1只是一个变量//如果没有分配资源怎么办？
  ///////
  Edit1.Parent := Self; //建议
end;{ No.6 遍历数据集 }
var
  I: Integer;
begin
  Query1.First;
  for I := 0 to Query1.RecordCount - 1 do begin //不建议//容易被影响
    Query1.Next;
    { };
  end;
  /////
  Query1.First;
  while not Query1.Eof do begin //建议
    { };
    Query1.Next;
  end;
end;{ No.7 利用Sender参数，使代码通用 }
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = '' then //不建议
  Edit1.Color := clRed;
  ///////
  if TEdit(Sender).Text = '' then //建议//复制到EditXChange中很方便
  TEdit(Sender).Color := clRed;
end;{ No.8 使用默认转换函数 }
var
  I: Integer;
begin
  I := StrToInt(Edit1.Text); //不建议
  ///////
  I := StrToIntDef(Edit1.Text, 0);//建议//参考StrToFloatDef,StrToDateDef....不过这些只有Delphi6才有
end;{ No.9 遍历数组 }
var
  I: Integer;
  A: array[0..9] of Integer;
begin
  for I := 0 to 9 do //不建议
  A[I] := I;
  ///////
  for I := Low(A) to High(A) do //建议//扩充性好
  A[I] := I;
end;{ No.10 利用MaxInt常量 }
begin
  Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建议
  ///////
  Caption := Copy(Edit1.Text, 3, MaxInt); //建议//嘻嘻，少计算一次
end;{ No.11 Result函数指针 }
function FuncName: Boolean;
begin
  FuncName := True; //不建议//并且放在赋值号右边不能当普通变量
  ///////
  Result := True; //建议//扩充性好
end;function FuncSum(A: array of Integer): Integer;
var I: Integer;
begin
  Result := 0;
  for I := Low(A) to High(A) do
    Result := Result + A[I]; //可不能用 FuncSum := FuncSum + A[I];
end;{ No.12 必须执行的代码、使用try ... finally ... end语句 }
var
  vStringList: TStringList;
begin
  vStringList := TStringList.Create;
  vStringList.LoadFromFile('c:\temp.txt');
  ShowMessage(vStringList.Text);
  vStringList.Free; //不建议//如果出现异常资源将无法释放
  ///////
  vStringList := TStringList.Create;
  try
    vStringList.LoadFromFile('c:\temp.txt');
    ShowMessage(vStringList.Text);
  finally //建议//即使出现Exit都会执行
    vStringList.Free;
  end;
end;//其他情况1
begin
  Screen.Cursor := crHourGlass;
  try
  { 耗时操作 }
  finally
  Screen.Cursor := crDefault;
  end;
end;
//其他情况2
begin
  Query1.DisableControls;
  try
  { 操作数据集 }
  finally
    Query1.EnableControls;
  end;
end;

Answer 3

>>对象的布尔型属性(Boolean)，自动被初始化为False (0)；
>>整型变量(Integer)，自动被初始化为 0；
>>字符串(String)，自动被初始化为空字符串。这个不一定局部变量最好初始化一下,不然会产生莫名错误.
特别是: Integer, string, Pointer
偶的经验

Answer 4

再来一条：
if adoDataSet.IsEmpty then exit;

Answer 5

Fieldvalues这个我推崇,不要用byname

Answer 6

Table1['姓名'] := Edit1.Text;   这个可以  但要是：
Edit1.Text := Table1['姓名']   //这个绝对不行，因为这时候要是NULL就会报错 这时候要FieldByName

Answer 7

With 语句也不能到处用，容易引起阅读时的语意不清，对于TEdit(Sender) 这种情况，最好是定义一个变量先进行一次赋值
var
 AEdit:TEdit;
begin
  if Sender Is TEdit then
  begin
    AEdit:=TEdit(Sender);
    if (AEdit.Text=') or(AEdit.Text[AEdit.SelStart]=') 
       or (AEdit.SelLength=Length(AEdit.Text)) and (Key in ['a'..'z']) then
      Key:=UpperCase(Key);
  end;
end;

Answer 8

if BoolVar then
  xx := True
else
  xx := False;这个可扩展性要比lz推荐的好。

Answer 9

尽量不要用"+"操作符进行字符串合并。这样做效率太低了。下面的例子不好：ShowMessage('在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。');
****************有启发我是用BCB的, 如何改写下面两句？
1）ShowMessage("在下身高"+IntToStr(iHeight)+"米");
2）
AnsiString strMsg;
....
strMsg = strMsg + "在下身高" + IntToStr(iHeight)+ "米";

Answer 10

sprintf("在下身高%d米，体重%d公斤。", iHeight, iWeight);
看起来比
'在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。'
要清楚一下，
当然以前用IntToStr写的也不想改了。但不知道如何用sprintf或Format来改写strMsg = strMsg + ....

Answer 11

dovelee() ( ) 信誉：100    Blog  2006-12-20 10:04:05  得分: 0  
 
 
   代码简洁不代表注释就简洁
好的代码注释很多的
  
 
========================好的代码本身就是注释。

Answer 12

事件中多用 (Sender as Txxx).xxxx
对像属性引用 多用 with xxx do你会发现Copy代码 重用起来好爽。

Answer 13

我觉得，上面写的都很好，不过什么都要灵活处理，如果没有特殊要求，代码应该以工整、规范、可读性和扩展性强为要。有些人往往不注意这些，很好的代码看上去总是乱糟糟的，比如变量名、函数名等，虽然Delphi不区分大小写，但从头到尾一色的小写，再加上个不规范缩进，看起来真的难受，这些人的水平再高，我是看不起的。

Answer 14

with语句并不好，源程序中如果with多了，而且范围比较大，源代码就比较难读懂了。至于效率问题，我不知道现在的编译器的优化能力如何了。使用with的部分代码长度不要超过需要拉动滚动条才能看完的长度。with中的参数不要超过2个，如果是5、6个我不知道怎么才能看懂了。探讨。

Answer 15

基本上都做到了.Fieldvalues有时候不明确是integer还是string或boolean的. 
with do 中如果太长了.有时候看代码是麻烦些.

Answer 16

最好不要提有争议的“忠告”代码的简洁至少要考虑以下几点：
1、可读性  Delphi写的毕竟不是什么高深的玩意，基本是界面类甚至是数据库类软件，这类软件的可读性是一个很大的问题2、宜于维护性3、效率遍历数据表用 for 还是 while 本身就很难说那个好，for效率高一些，while理论上安全一些，但实际过程中难道允许用户在遍历数据表的时候还允许进行其它操作？

Answer 17

针对:**************
量不要用"+"操作符进行字符串合并。这样做效率太低了。下面的例子不好：
ShowMessage('在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。');
这样写会较好：
ShowMessage(Format('在下身高%d，体重%d。', [iHeight,iWeight]));
*************有人对效率提出问题, 的确, Delphi的字串是很高效的...所以简单的+应该还好. 但, 我支持用Format的原因是: 可读性更强. 看过N多拼SQL字串的写法...一堆的'''''', 一堆的+++++, 我估计最终编写者也看不出是什么. 
当然, 不是建议写SQL用format...写SQL还是带参数的好. 只是举个例子. format可以提高可读性.

Answer 18

自己找到答案了，AnsiString也可以在Format和sprintf里用"%s"里指代.俺想少数两三个AnsiString还是可以用"+"来连接，而更多的AnsiString应该用sprintf或Format。比较一下strMsg ="姓名: " + name + "年龄: " + IntToStr(age) + "号码: " + IntToStr(num) + "工资: " + IntToStr(salary);和strMsg.sprintf("姓名: %s年龄: %d号码: %d工资: %d",name,age,num,salary);后者可读性比前者要略好，生成的机器码只有1/3, 更重要的是可以把sprintf里的格式字符串提出来集中维护，而前者用"+"导致的大量零碎字符串就不好处理。后者唯一缺点是当有大量参数时，需要花一点工夫将格式字符串和相应的参数对齐。

Answer 19

忠告二避免使用嵌套的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);＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
反对忠告二
有些必须得先通过第一个IF判断后才能进行第二个IF判断的
比如：
  if pageCotrol1.controls[0] is TForm then
    if (pageCotrol1.controls[0] as TForm).caption='要找的窗体' then
       ShowMessage('找到了！');

Answer 20

开个玩笑，楼上反对无效。
if (pageCotrol1.controls[0] is TForm) and (TForm(pageCotrol1.controls[0]).Caption = '要找的窗体')  then
       ShowMessage('找到了！');

Answer 21

比较了一下:
strMsg ="姓名: " + name + "年龄: " + IntToStr(age) + "号码: " + IntToStr(num) + "工资: " + IntToStr(salary);
编译后是527个字节。strMsg.sprintf("姓名: %s年龄: %d号码: %d工资: %d",name,age,num,salary);
编译后是23个字节差22倍。

Answer 22

代码简洁不代表注释就简洁
好的代码注释很多的
----------------------------
上面說得不對吧,好的代碼可以減少很多注釋.
比如函數  GetLocalFileList(path:string)  跟本就沒有必要在後面加注釋,地球人都知道啥意思  

Answer 23

cn_tigers(不是我)这位大哥说的对好的代码应该易于别人阅读、运行稳定，而不是追求花捎、过分简洁，导致别人很难看不懂。
至于注釋个人觉得是在一些业务逻辑或运算方法复杂的地方写,而不是什么地方都写

Answer 24

我也来
忠告1: 如果要用到with的地方,请想想能不能重构,将其作为一个函数使用
忠告2: 对于数据集的CLOSE请使用
       try
         DataSet.Open;
       finally
         DataSet.Close;
       end;
忠告3: 使用Sender时,请先判断一下是不是nil, 是不是非你要的那个类型
忠告4: FieldValue对null的处理实在是差,请还是使用FieldByName().AsXXXXX这个
忠告5: 如果你要写一个长长的判断,还是写成一个函数吧,不要写进一个if then中,那样,几天后,你就将看不懂了

Answer 25

所谓忠告5，我看不见得，with语句最好不要泛用。很容易搞不清楚谁是谁！

Answer 26

比较了一下:
strMsg ="姓名: " + name + "年龄: " + IntToStr(age) + "号码: " + IntToStr(num) + "工资: " + IntToStr(salary);
编译后是527个字节。strMsg.sprintf("姓名: %s年龄: %d号码: %d工资: %d",name,age,num,salary);
编译后是23个字节差22倍。
==============================================
527个B  还不到1K  你的程序能有几个这样的  给你1000个够不？ 也才500多K   算个P

Answer 27

不过strMsg.sprintf("姓名: %s年龄: %d号码: %d工资: %d",name,age,num,salary);这样蛮简洁的

Answer 28

忠告五 不敢苟同, with 语句最容易出现低级错误

Answer 29

忠告五尽量多用with语句。它不仅效率高，而且使代码更加易读。比如，这段代码：
-------------------------------------------------------------------
强烈反对，尽量不要使用with语句！！！！

Answer 30

我也来几下:
1、关于WITH，我个人基本不喜欢用，因为他带来的是可读性非常差。一个参数类，几个属性的时候，用的还好，而且项目组人同要比较熟练这个类！如果二个以上的参数类，天知道怎么读这一小段的WITH代码。
2、关于字符串，用+和Format这两个我一般是看情况的。有些字符串边境用Format就很不好使，比如对一些SQL语句的拼写，多个SQL用+连接代码易读性高。而且这个效率还算好！然而一些楼主都提及的字符串，当然用Format要好，同样易读性好，我觉得在使用到字符（串）操作的时候可读性是主要的，如果跟效率搭上边了，长字符串处理，我觉得已经是设计问题了。
3、关于FOR和WHILE的比较，数据集的遍历当然用WHILE。RecordCount除非你不用数据集过渡，如果用了，这个系统大了，维护死你，不可预见性太高了。这不是效率问题，是你写出来的软件能不能用的问题。
4、关于FieldByName。这个嘛提下，我一直都是用它的。除非特殊性情会用Fields[]。要不然，别人的软件交给你维护的时候，你就等着哭吧，查字段你就得花上所有的加班时间。。可能我说的没道理，大家就指出来，如果能证明就更好了，这样我又学到东西了。。

Answer 31

with显然是一种非常难读的东西，尤其是和其它代码(比如for,while)混在一起时，简直就是乱成一团。
with下的代码，是按所有者缩进，for下的代码是按程序逻辑缩进，所以我认为with只适合在非常简单代码的场合

Answer 32

527个B 还不到1K 你的程序能有几个这样的 给你1000个够不？ 也才500多K 算个P
************************
如上所诉，关键是strMsg.sprintf("姓名: %s年龄: %d号码: %d工资: %d",name,age,num,salary);好管理，把"姓名: %s年龄: %d号码: %d工资: %d"可以单独提出来放在一个文件里。另外如果"+"出来的代码要大那么多的话（有大量临时AnsiString的创建和消除), 其运行速度必然要受影响

Answer 33

哈哈, 5207(踏雪)兄的观点完全赞同. 但是第3点能否解释的具体些: RecordCount为何会产生那么严重的后果?>3、关于FOR和WHILE的比较，数据集的遍历当然用WHILE。RecordCount除非你不用数据集过渡，如果用了，这个系统大了，维护死你，不可预见性太高了。这不是效率问题，是你写出来的软件能不能用的问题。

Answer 34

忠告四
尽量不要用"+"操作符进行字符串合并。这样做效率太低了。
//=====================
+比format低?
用format是因为可读性高,绝不是因为其效率,看看format函数的实现就知道了.如下代码:
    adsAdvice.Filter  :=  Format(
        'AdviceNumber like %s'+
        ' or AdviceFrom like %0:s'+
        ' or StateComtent like %0:s'+
        ' or StateReply like %0:s'+
        ' or FromCaseNumber like %0:s'+
        ' or CaseNumber like %0:s',
        [QuotedStr('%' + edtSearch.Text + '%')]);
用format比用+好理解多了
忠告五
尽量多用with语句。它不仅效率高，而且使代码更加易读。
//============
绝不要"尽量多用"with,with多了,特别是多重with会让你的代码更难理解.
我只会在以下情况用with
  with TLoginForm.Create(nil) do
  try
    Result :=  ShowModal = mrOK;
  finally
    Free;
  end;
其它时候,就算是xxx.yyy.zzz.text这样的结构,也宁愿用中间变量也不用with

Answer 35

掐了一下秒表:在2.4G的P4上，使用BCB6.0, 优化选速度，打开debug信息,循环100万次
strMsg ="姓名: " + name + "年龄: " + IntToStr(age) + "号码: " + IntToStr(num) + "工资: " + IntToStr(salary);
要16秒strMsg.sprintf("姓名: %s年龄: %d号码: %d工资: %d",name,age,num,salary);
只要6秒

Answer 36

+连接字符串的速度与+号的数量成正比
format函数的速度与要格式化的变量数量成正比对于很多短的字符串,+慢于format
对于少量长字符串的连接,format慢于+
各有各的长处,说+比format慢是没道理的

Answer 37

上面错了,改为   format函数的速度与要格式化的源字符串长度成正比

Answer 38

horsefaced() ( ) 信誉：100    Blog  2006-12-21 15:58:52  得分: 0  
忠告2: 对于数据集的CLOSE请使用
       try
         DataSet.Open;
       finally
         DataSet.Close;
       end;
-----------------------------------------------
不敢苟同

Answer 39

语句
ShowMessage('在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。');与ShowMessage(Format('在下身高%d，体重%d。', [iHeight,iWeight]));的执行结果不一样啊! 单位"米"和"公斤"都没有表示出来.

Answer 40

zzwu(未名) ( ) 信誉：104    Blog  2006-12-23 09:46:58  得分: 0  
 
 
   语句
ShowMessage('在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。');与ShowMessage(Format('在下身高%d，体重%d。', [iHeight,iWeight]));的执行结果不一样啊! 单位"米"和"公斤"都没有表示出来.
  当然不一样了，这样才一样：
ShowMessage(Format('在下身高%d米，体重%d公斤。', [iHeight,iWeight]));

Answer 41

在大多数情况下，使用Format函数会比使用类型转换函数和+运算要好用的多，一方面是可读性好，另一方面是对多语种支持好。例如，下面的例子中，使用Format函数的可读性较好：
const
  fmtChinese = '高度=%d, 重量=%d';
  fmtEnglish = 'Height=%d, Weight=%d';
var
  sFormat : String;
begin
  ......
  if IsEnglish then
    sFormat := fmtEnglish
  else
    sFormat := fmtChinese;
  ......
  ShowMessage(Format(sFormat, [iHeight,iWeight]));
  ......
end;

Answer 42

不喜欢用with
当时爽了
回头再来看,一头雾水

Answer 43

var B: Boolean;
begin
  if Edit1.Text = '是' then //不建议//烦琐
    B := True
  else B := False;
  ///////
  B := Edit1.Text = '是'; //建议//简短//是简短,但是不易理解,如果是C,JAVA,ASP呢
end;
所以个人建议还是使用通用的写法比较好,以后无论自己还是别人维护起来也好理解点
with也是好用的,不过不要搞得太长就好了
尽量用messagebox而不用showmessage,messagedlg