Delphi編碼標準——窗體與資料模組命名 (轉)

Delphi編碼標準——窗體與資料模組命名 (轉)[@more@]

窗體與資料模組命名:namespace prefix = o ns = "urn:schemas--com::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

, 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): ;

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;