delphi代码编写规范.doc

《delphi代码编写规范.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、预付费组delphi代码编写规范目录1.概述12.通用源代码格式规则13.过程和函数24.变量24.1.变量命名及格式24.2.类型35.类45.1.命名及格式45.2.类中的属性访问（这点可以考虑是否加入）56.结构化异常处理57.元件类型57.1.元件实例的命名规则58.窗体与对话框类型69.数据模块类型710.文件71.概述本规范是根据网上一些资料整理而来，为了实用，只列出了一些重点。2.通用源代码格式规则1).缩进缩进就是每级间有两个空格。一般不要在源代码中放置制表符。这是因为，制表符的宽度随着不同的设置和代码管理实用程

2、序(打印、文档及版本控制等)而不同。当遇到begin或进入判断、循环、异常处理、with语句、记录类型声明、类声明等的时侯增加一级，当遇到end或退出判断、循环、异常处理、with语句、记录类型声明、类声明等的时侯减少一级。2).begin...end语句begin语句必须单独占一行。例如，下面第一行是错误的，而第二行正确：fori:=0to10dobegin//错,begin与for在同一行fori:=0to10do//对,begin在另外一行中begin本规则的一个特殊情况是，当begin为else语句的一部分时，例如：if

3、somestatement=thenbegin...endelsebeginSomeOtherStatement;end;注意：end语句总单独一行。当begin不为else语句的一部分时，相应的end语句与begin语句的缩进量相同。3).注释我们通常使用“{...}”类型的块注释，用“//”行注释。每个函数、过程和全局变量（包括模块内全局变量）都必须有注释，函数、过程的参数都必须说明。4).空格（这个是否可以取消）　　在操作符及逻辑判断符号的两端一般要添加空格，例如：I:=I+1;，aandb等，但添加括号时不需要空格。例如

4、：if(a>b)then//错误的用法If(a>b)then//正确的用法又例如：procedureTest(Param1:integer;Param3:string);1.过程和函数(1).格式过程名应当以大写字母开始，且大小写交错以增加可读性。下面是一个不正确的写法：procedurethisisapoorlyformattedroutinename;改成这样写就对了：procedureThisIsMuchMoreReadableRoutineName;(2).形参　　所有参数必须是有意义的；并且当参数名称和其它属性名称重了

5、的时候，加一个前缀‘A’,例如：procedureSomeProc(AUserName:string;AUserAge:integer);2.变量2.1.变量命名及格式(1)命名前缀（这点可以考虑是否要加）字符串类型s??IntiDoubledDatetimedtBooleanbTDatasetdsTQueryqry……如：varsUsrName:string;　　循环控制变量通常使用单一的字符如：i,j,或k。另外使用一个有意义的名字例如：UserIndex，也是准许的。　　首先所有变量必须起有意义的名字，使其它组员可以很容易

6、读懂变量所代表的意义，变量命名可以采用同义的英文命名，可使用几个英文单词，但每一单词的首字母必须大写。例如：varsWriteFormat:：string；　　同时对于一些特定类型可采用一定的简写如下：　　指针类型　　　　　P　　纪录类型　　　　　Rec　　数组类型　　　　　Arr类　　　　　　　　Class(2).全局变量全局数据如果将由许多单元使用，就应移动到一个公用单元里被所有对象使用。全局数据可在声明时直接初始化为一个值。　　尽量不使用全局变量，如必须使用全局变量则必须加前缀‘G’，同时应在变量名称中体现变量的类型。例如

7、：GPRecUserCount:point;//名称为UserCount的全局变量,其类型为指向一结构的指针但是在模块内部可以使用全局变量。所有模块内全局变量必须用‘F’为前缀。如果几个模块之间需要进行资料交换，则需要通过声明属性的方法来实现。例如：typeTFormOverdraftReturn=class(TForm)private{Privatedeclarations}F_sUserName:string;F_iUserCount:Integer;ProcedureSetUserName(Value:string);Fu

8、nctionGetUserName:string;public{Publicdeclarations}propertyUserName:stringreadGetUserNamewriteSetUserName;propertyUserCount:Integer