Delphi编码标准——窗体与数据模块命名 (转)

Delphi编码标准——窗体与数据模块命名 (转)[@more@]

窗体与数据模块命名XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

1.  窗体类型的命名标准：窗体类型的名称应当表达出窗体的用途，且要加T前缀,后跟描述性名，最后是Form。

例如：Student窗体类型名称为：TStudentForm= class (TForm)

用户登录窗体的类型名称为：TUserEntryForm= class (TForm)

2.  窗体实例的命名标准：窗体实例的名称与相应的类型名称相同，但没有前缀T。

例如：

var

Student Form: TStudentForm

UserEntryForm: TUserEntryForm

3. 自动创建的窗体：除非特别原因,只有主窗体才自动生成。其他所有窗体必须从Project Options对话框的自动生成列表中删除。

4. 模式窗体实例化函数：所有窗体单元都应当含有实例化函数，用于创建、设置、模式显示和释放窗体。这个函数将返回由窗体返回的模式结果。传递给这个函数的参数遵循参数传递的规则。之所以要这样封装，是为了便于代码的重用和维护。窗体的变量应当从单元中移走，改在窗体实例化函数中作为局部变量定义(注意，要求从ProjectOptions对话框的自动生成列表中移走该窗体。请看前面的内容)。

例如，下面的单元文件演示了GetStudent的实例化函数。

Unit StudentFrm;

Interface

Uses

windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

Type

TStudentForm= class(TForm)

editID: TEdit;

editName: TEdit;

private

{Private declarations}

public

{Public declarations}

end;

function GetStudent (var aStudentName: String; var aStudentID: Integer): word;

implementation

{$R*.DFM}

function GetStudent (var aStudentName: String; var aStudentID: Integer): Word;

var

StudentForm: TStudentForm;

begin

StudentForm: = TStudentForm.Create (Application);

Try

StudentForm.Caption:='Getting Student’;

Result: = StudentForm.ShowModal;

If Result=mrOK then

begin

aStudentName: = StudentForm. editName.Text;

aStudentID: = StrToInt (StudentForm.editID.Text);

end;

finally

StudentForm.Free;

end;

end;

end.

5数据模块的命名标准：数据模块类型名称应表达出它的用途，且要加前缀T，后跟描述性名称，最后是DataModule。

例如：Student数据模块的类型名称为TStudentDM= class(TDataModule)

6 数据模块实例的命名标准：数据模块实例的名称应当与相应的类型名称相同，但没有前缀T。

例如：

var

StudentDM: TStudentDM;

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-998880/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-998880/