在编程时候，尤其是在一个大的团队里面，遵守统一的编程规范是极其重要的。为所有的开发人员制定一个源代码书写标准，以及程序和文件的命名标准，使他们在编程时有一致的格式，这样，每个编程人员编写的代码能够被其他人理解，减少程序维护和移交的成本。
这里先只介绍关于Delphi语言的编程规范，暂时跳过文件、项目命名……
1.1.关于缩进
缩进能够更清晰的展示源码的逻辑结构，采用两个空格字符，不能使用制表符（即Tab字符）。这是因为，制表符的宽度随着不同源码编缉工具及不同的设置，展示出来的效果不一样，如果空格和tab键混用的情况，很可能展现出来的是混乱的结构
1.2.begin...end语句
begin语句应该单独占一行，例如
错误的用法
for i:=0 to 10 do begin
正确的用法
for i:=0 to 10 do
begin
本规则有一个特例，当begin为else语句的一部分时，例如
if somestatement then
begin
...
end;
else someotherstatement begin
...
end;
注意：end语句总是单独一行，当begin不为else语句的一部分时，相应的end语句与begin语句的缩进量相同
1.3.大小写规则
虽然Delphi中不区分大小写，但是采用统一的大小写规则也是极其有益的，能让大家在看代码时不至于不知所措
类型标识符是保留字，应当全部小写。Win32 API类型常常全部大写，并且遵循如Windows.pas或者其他API单元中关于特定类型名的规则。对于凄然变量名，第一个字母应该大写，其他字母则大小写交错，例子
var
sMyString : string; //保留字，全部小写
hWindowsHandle : HWND; //Win32 API类型，全部大写
I : Integer; //在System单元中引用的类型标识，特定类型名
1.4.浮点型
通常情况下，对于浮点数应当使用Double，不鼓励使用Real类型，因为它只是为了与老的Pascal代码兼容而保留的。Double可被处理器优化，是IEEE定义的标准的数据格式。当需要比Double提供的范围更大时，可以使用Extend。
1.5.Variant和OleVariant
一般不建议使用Variant和OleVariant。但是，当数据类型只有在运行期才知道时(常常是在COM和数据库应用的程序中)，这两个类型对编程就有必要。当进行诸如自动化ActiveX控件的COM编程时，应当使用OleVariant；而对于非COM编程，则应当使用Variant。这是因为，Variant能够有效地保存Delphi的原生字符串，而OleVariant则将所有字符串转换为OLE字符串(即WideChar字符串)，且没有引用计数功能。
1.6.局部变量
局部变量用于过程内部，如果需要的话，应当在过程的入口处立即初始化变量。局部的AnsiString 类型的变量自动被初始化为空字符串，局部的接口和dispinterface类型的变量自动被初始化为nil，局部的Variant和OleVariant类型的变量自动被初始化为Unassigned。
1.7. 全局变量
一般不鼓励使用全局变量。不过，有时候需要用到。即使如此，也应当把全局变量限制在需要的环境中。例如，一个全局变量可能只在单元的实现部分是全局的。
全局数据如果将由许多单元使用，就应移动到一个公用单元里被所有对象使用。全局数据可在声明时直接初始化为一个值。注意，所有全局变量自动进行零初始化，因此，不要将全局变量初始化为诸如0 、nil、或Unassigned等空值。零初始化的全局变量在.EXE文件中不占空间。零初始化的数据保存在虚拟的数据段中，而虚拟数据段只在应用程序启动时才分配内存。非零初始化的全局数据则在.EXE文件中占空间。
1.8.if语句
在if/then/else语句中，最有可能执行的情况应放在then子句中，不太可能的情况放在else子句中。为了避免出现许多if语句，可以使用case语句代替。如果多于5级，不要使用if语句。请改用更清楚的方法。不要在if语句中使用多余的括号。
如果在if语句中有多个条件要测试，应按照计算的复杂程度从右向左排。这样，可以使代码充分利用编译器的短路估算逻辑。例如，如果Condition1比Condition2快，Condition2比Condition3快
1.9.case语句
case语句中每种情况的常量应当按数字或字母的顺序排列。每种情况的动作语句应当简短且通常不超过4 - 5 行代码。如果动作太复杂，应将代码单独放在一个过程或函数中。case语句的else子句只用于默认情况或错误检测。
1.10.while语句
建议不要使用Exit过程来退出while循环。如果需要的话，应当使用循环条件退出循环。所有对while循环进行初始化的代码应当位于while入口前，且不要被无关的语句隔开。任何业务的辅助工作都应在循环后立即进行。
1.11.for语句
如果循环次数是确定的，应当用for代替while语句
1.12.repeat语句。
repeat语句类似于while语句，且遵循同样的规则
1.13.with语句
with语句应该小心使用，要避免过度使用with语句，尤其是在with语句中使用多个对象或记录，例子
with Record1, Record2 do
begin
....
end;
这些情况很容易迷惑编程人员，且导致调试困难
1.14.过程和函数
过程名或函数名应当以大写字母开头，且每个单词首字母大写，例如
procedure thisisapoorlyformattedroutinename; //错误的写法，让人很难看明白
procedure ThisIsBetterProcedure; //这种写法更为易读
只要有可能，同一类型的形参应当归并到一起，这样可以减少代码长度，例如：
procedure Foo(Param1:Imteger;Param2:Imteger;
Param3:Imteger;Param4:string); //不建议的用法
procedure Foo(Param1,Param2,Param3:Imteger;Param4:string); //建议的用法
参数的顺序主要要考虑寄存器的调用规则，最常用的参数应该作为第一个参数，按照使用的频率以此从左到右，输入参数位于输出参数之前，范围大的参数应当在范围小的参数之前。也有例外，例如：在事件处理的过程中，TObject类型的Sender参数往往是第一个要传递的参数
1.15.常数参数
要使记录、数组、短字符串或接口类型的参数不能被过程修改，就应当把形参标以const 。这样，编译器将以最有效的方式生成代码，保证传递的参数不可变。
如果其他类型的参数希望不被过程所修改，也可以标上const 。尽管这对效率没有影响，但这给过程的调用者带来了更多的信息。
1.16.结构异常处理
异常处理主要用于纠正错误和保护资源。这意味着，凡是分配资源的地方，都必须使用try...finally来保证资源得到释放。不过，如果是在单元的初始/结束部分或者对象的构造器/析构器中来分配/释放资源是例外
1.17.try...finally的用法
可能的情况下，每个资源应当与try...finally结构匹配，例如错误的代码
SomeClass1 := TSomeClass.Create;
SomeClass2 := TSomeClass.Create; //此条语句出错时，SomeClass1无法释放
try
{ do some code }
finally
SomeClass1.Free;
SomeClass2.Free;
end;
正确的代码
SomeClass1 := TSomeClass.Create;
try
SomeClass2 := TSomeClass.Create;
try
{ do some code }
finally
SomeClass2.Free;
end;
finally
SomeClass1.Free;
end;
但是如果有许多类都需要同时创造，上述方案显得累赘，这时候建议使用下面的安全方案
SomeClass1 := nil;
SomeClass2 := nil;
try
SomeClass1 := TSomeClass.Create;
SomeClass2 := TSomeClass.Create;
{ do some code }
finally
FreeAndNil(SomeClass1);
FreeAndNil(SomeClass2);
end;
1.18.try...except的用法
如果你希望在发生异常时执行一些任务，可以使用try...except。通常，没有必要为了简单地显示一个错误信息而使用try...except，因为Application对象能够自动根据上下文做到这一点。如果要在子句中激活默认的异常处理，可以再次触发异常。
注意：一般情况下，原始的错误信息一般需要屏蔽掉不给用户看到，而是转换成我们自定义的更通俗易懂的描述给客户。但是原始的错误信息不能这样直接丢弃，否则，会给我们排查问题时带来较大的因难，所以一般需要记录下较详细的出错场景信息及原始出错信息，以备排查问题时使用。如果明确就是为了屏蔽某一类异常，可以不记录错误信息，但是这种情况慎用。例如：不当的用法：
sCount := ‘aaaa’;
try
iCount := StrToInt(sCount);
except
{ 转换出错数据是什么?为什么出错? 都不知道，这样给排查问题带来很大困难 }
ShowMessage(‘sCount转换类型失败!’);
end;
正确的用法
sCount := ‘aaaa’;
try
iCount := StrToInt(sCount);
except
on e: Exception do
begin
WriteLog(‘sCount(当前值为：%s)转换类型失败！错误信息为：%s’,
sCount, e.message);
ShowMessage(‘sCount转换类型失败!’);
end;
end;