3.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;

上一页  [1] [2] [3]