Delphi源程序格式书写规范（一）（3）

Delphi源程序格式书写规范（一）（3）2007-05-083.4.3 枚举类型

枚举类型的名字必须有意义并且类型的名字之前要加前缀‘T’。枚举类型的内容的名字必须包含枚举类型名称的简写，例如：

TSongType = （stRock, stClassical, stCountry, stAlternative, stHeavyMetal, stRB）;

3.4.4 数组类型

数组类型的名字必须有意义并且类型的名字之前要加前缀‘T’。如果声明一个指向数组类型的指针必须在该类型的名字之前加前缀‘P’，例如：

type
PCycleArray = ^TCycleArray;
TCycleArray = array[1..100] of integer;

3.4.5记录类型

记录类型的名字必须有意义并且类型的名字之前要加前缀‘T’。如果声明一个指向数组类型的指针必须在该类型的名字之前加前缀‘P’，例如：

type
PEmployee = ^TEmployee;
TEmployee = record
EmployeeName: string
EmployeeRate: Double;
end;

3.5 类

3.5.1 命名及格式

类的名字必须有意义并且类型的名字之前要加前缀‘T’。例如：

type
TCustomer = class（TObject）

类实例的名字通常是去掉‘T’的类的名字。例如：

var
Customer: TCustomer;

3.5.2 类中的变量

3.5.2.1命名及格式

类的名字必须有意义并且类型的名字之前要加前缀‘F’。所有的变量必须是四有的。如果需要从外部访问此变量则需要声明一属性

3.5.3 方法

3.5.3.1命名及格式

同函数和过程的命名及格式。

3.5.3.2 属性访问方法

所有的属性访问方法必须出现在private 或 protected 中。属性访问方法的命名同函数和过程的命名另外读方法（reader method）必须使用前缀‘Get’. 写方法（writer method）必须使用前缀‘Set’。写方法的参数必须命名为‘Value’，其类型同所要写的属性相一致。例如：

TSomeClass = class（TObject）
private
FSomeField: Integer;
protected
function GetSomeField: Integer;
procedure SetSomeField（ Value: Integer）;
public
property SomeField: Integer read GetSomeField write SetSomeField;
end;