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;