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

(*//
标题: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;

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

这个不一定

局部变量最好初始化一下,不然会产生莫名错误.
特别是: Integer, string, Pointer
偶的经验
Table1[‘姓名‘] := Edit1.Text;   这个可以  但要是:
Edit1.Text := Table1[‘姓名‘]   //这个绝对不行,因为这时候要是NULL就会报错 这时候要FieldByName

己找到答案了,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里的格式字符串提出来集中维护,而前者用"+"导致的大量零碎字符串就不好处理。

后者唯一缺点是当有大量参数时,需要花一点工夫将格式字符串和相应的参数对齐。

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

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

可能我说的没道理,大家就指出来,如果能证明就更好了,这样我又学到东西了。。

时间: 07-07

Delphi中使代码简洁的 5 条忠告(转)的相关文章

【《Effective C#》提炼总结】提高Unity中C#代码质量的22条准则

本文由@浅墨_毛星云 出品,转载请注明出处.   文章链接:http://blog.csdn.net/poem_qianmo/article/details/53869998 作者:毛星云(浅墨)    微博:http://weibo.com/u/1723155442 引言 我们知道,在C++领域,作为进阶阅读材料,必看的书是<Effective C++>. 而<Effective C#>之于C# ,是类似<Effective C++>之于C++一样的存在. 这篇文章,

delphi中formatFloat代码初探(在qt下实现floatformat的函数)

由于项目需要,需要在qt下实现floatformat的函数.之前写过一个,但是写得不好.决定重新写一个,参考delphi xe2下的实现.把xe2下的相关代码都看了一遍,xe2的代码思路在这里贴出来.xe2下的代码在system.sysutils下,核心函数是InternalFloatToTextFmt.它有汇编的版本跟纯pascal的版本.汇编看不懂,参考的是纯pascal的版本. 整体流程是: 1)解析format格式化字符串 [delphi] view plain copy Result 

知晓设计模式,框架,去提高开发效率,使代码简洁

转自:http://kb.cnblogs.com/page/516088/ http://kb.cnblogs.com/page/516088/ 知晓各种设计模式,框架,技术技巧只是事情的一方面,而知道何时该.何时不该应用他们才是更重要的问题.在不知道一种技巧方式如何能对系统的开发有帮助的情况下,这种模式方法极有可能成为一种开发的阻碍,而不是一种有益的帮助. 好代码是廉价的代码. 但是 … 设计模式毕竟是个好东西 … 不是吗? 当然,但它们好在哪里?它们能提供什么好处? 容易维护 产品更健壮 容

初探Delphi中的插件编程

前言 我写Delphi程序是从MIS系统入门的,开始尝试子系统划分的时候采用的是MDI窗体的结构.随着系统功能的扩充,不断有新的子系统加入系统中,单个工程会变得非常大,每次做一点修改都要重新编译,单个工程的形式也不利于团队协作.为了提高工作效率,我希望利用DLL动态链接库的形式实现插件结构的编程. 插件结构的编程需要一个插件容器来控制各DLL的运行情况,将划分好的每个子系统安排到一个DLL库文件中.对每个DLL程序需要为容器预留接口函数,一般接口函数包括:启动调用DLL库的函数.关闭DLL库的函

友坚4412开发板怎样在source insight中使汇编代码高亮显示?

友坚4412开发板怎样在source insight中使汇编代码高亮显示?4412开发板 做ARM嵌入式开发时,有时得整汇编代码,但在SIS里建立PROJECT并ADD TREE的时候,根据默认设置并不会把该TREE里面所有汇编文件都包含进来,默认只加了.inc和.asm后缀的, .s后缀的没有.而且用SIS打开.s的文件时,一片黑白没有色彩, 感觉回到DOS的EDIT时代里了. 解决方法是在Options->Document Options里面,点左上的Document Type下拉菜单,选择

在delphi中执行javascript代码

http://lhdeyx.blog.163.com/blog/static/318196972011101132922916/ 在delphi中执行javascript代码 2011-11-11 15:32:54|  分类: delphi|举报|字号 订阅 下载LOFTER我的照片书  | 有时做项目难免用到代码交叉调用,delphi中执行js就是一种,两种方法可用:一.使用webbrower,比较麻烦二.使用ScriptControl,简单方便:1.首先uses ComObj;2.通用函数:

Jquery中,关于固定头部菜单条代码(摘)

$(function () { $(window).scroll(function () { if ($(window).scrollTop() >= 150) { //加入fixedNavCSS样式 $(".Dp-Navbar").addClass("fixedNav"); } else { //去除fixedNavCSS样式 $(".Dp-Navbar").removeClass("fixedNav");      

Delphi中根据分类数据生成树形结构的最优方法

一. 引言:    TreeView控件适合于表示具有多层次关系的数据.它以简洁的界面,表现形式清晰.形象,操作简单而深受用户喜爱.而且用它可以实现ListView.ListBox所无法实现的很多功能,因而受到广大程序员的青睐.    树形结构在Windows环境中被普遍应用,但在数据库开发中面对层次多.结构复杂的数据,如何快速构造树形目录并实现导航呢?    二. 实现关键技术:    在Delphi提供的控件中包含了TreeView控件,但树的具体形成还需要用户编写代码.即它的列表项要在程序

DELPHI中的多线程【深入VCL源码】

线程的基础知识 线程的组成.线程有两部分组成. 1.一个是线程的内核对象,操作系统用它来对线程实施管理.内核对象也是系统用来存放线程统计信息的地方. 2.另一个是线程堆栈,它用于维护线程在执行代码时需要的所有函数参数和局部变量. 进程从来不执行任何东西,它只是线程的容器.线程总是在某个进程环境中创建的,而且它的整个寿命期都在该进程中.这意味着线程在它的进程地址空间中执行代码,并且在进程的地址空间中对数据进行操作.因此,如果在单进程环境中,你有两个或多个线程正在运行,那么这两个线程将共享单个地址空