1.0 簡介
2.0 一般程式碼格式
2.1 縮格
2.2 邊界
2.3 Begin...End
3.0 Object Pascal
3.1 括號
3.2 保留字與關鍵字
3.3 程序與函式
3.4 變數
3.4.1 變數命名與格式
3.4.2 區域變數
3.4.3 全域變數

3.5 型態

3.5.1 大小寫慣例
3.5.2 浮點數型態
3.5.3 列舉型態（Enumerated Types）
3.5.4 Variant 和 OleVariant 型態
3.5.5 結構型態

3.6 陳述句（statements）
3.6.1 if 陳述句
3.6.2 case 陳述句
3.6.3 while 陳述句
3.6.4 for 陳述句
3.6.5 repeat 陳述句
3.6.6 with 陳述句

3.7 結構化異常處理
3.7.1 try...finally
3.7.2 try...except

3.8 類別（classes）

3.8.1 命名/格式
3.8.2 欄位（Fields）
3.8.3 方法 （Methods）

命名/格式
靜態方法（Static Methods）
虛擬/動態方法（Virtual/Dynamic Methods）
抽象方法（Abstract Methods）
屬性存取方法（Property-Access Methods）
3.8.4 屬性（Properties）
4.0 檔案（File）
4.1 Project Files
4.2 Form Files
4.3 Data Module Files
4.4 Remote Data Module Files
4.5 Unit Files

4.5.1 一般單元結構
4.5.2 一般用途的單元
4.5.3 元件單元

4.6 檔案表頭（File Headers）

5.0 Forms and Data Modules
5.1 Forms

5.1.1 Form 型態命名標準
5.1.2 Form 實體命名標準
5.1.3 自動建立的 Forms
5.1.4 建立 Modal Form 的函式

5.2 Data Modules

5.2.1 Data Module 型態命名標準
5.2.2 Data Module 實體命名標準

5.3 Remote Data Modules

6.0 套件（Packages）
6.1 執行時期 v.s. 設計時期套件
6.2 檔案命名標準

7.0 元件（Components）
7.1 使用者自訂元件
7.2 元件實體命名慣例

7.2.1 元件型態字首（Component Type Prefixes）
7.2.2 元件修飾詞名稱（Component Qualifier Name）

8.0 補充說明

--------------------------------------------------------------------------------

1.0 簡介
這份文件修改自 Delphi 5 Developer's Guide 裡面的 coding standards，該文所建議的寫碼風格與 Borland 大致相同，我在編寫這份文件時也做了微幅的修改，刪除一些不斷重複的字句，例如，「某某名稱在命名時應該與它的目的相符」這類一般性的原則，只要是「命名」，不管是專案名稱，檔案名稱，元件，函式，變數....都應該取有意義的名稱。

這份文件不可能照顧到所有細節，但是比較重要的部分都提到了，另外一篇 "Delphi 5 元件型態字首" 則包含了元件命名的字首建議清單，應該也有參考價值。

依照文件中的規範來撰寫程式，不但可使程式碼比較清晰易讀，也能夠讓整個開發團隊的程式風格保持一致，這樣小組成員在看別人的程式碼時會輕鬆一些。如果這些風格和你原有的習慣相差很大，或者你正好接手維護別人的程式碼，以下工具可能對你有用處：

DelForExp - 可以幫你重新編排 Delphi 程式碼。

GExperts - 包含許多提高 Delphi 生產力的工具，其中 Code Proofreader 能夠自動幫你修正程式碼的大小寫失誤。

2.0 一般程式碼格式
2.1.縮格
每層的縮格為兩個空白字元，不要使用 Tab 字元（Tools | Editor options 裡面的 Use tab character 選項不要勾選），以免程式碼到了別台機器或用其他文字編輯器顯示、列印時走了樣。

2.2.邊界
邊界設定為 80 個字元（此為 Delphi 預設值），當程式碼太長而超過邊界時應予以折行，不過對於那些剛好有一個英文字跨在邊界上的情形則可以通容。折行時請盡量斷在逗號或者運算子後面，折下來的那行程式碼應該要往右縮格（兩個空白字元）。

2.3.Begin...End
begin 和 end 應該寫在新的一行，且兩者要對齊。下面的第一個例子是錯誤的示範，第二個是正確的：

for I := 0 to 10 do begin // 錯誤
for I := 0 to 10 do // 正確
begin
但是當 begin 是接在 else 後面時則可以破例寫在 else 後面：

if (I > 9) thenbegin  ...endelse begin  SomeStatement;end;

當然，else 之後的 begin 要寫在新的一行也可以。

〔回目錄〕

--------------------------------------------------------------------------------

3.0 Object Pascal
3.1.括號
左括號的右邊和右括號的左邊不應該有空白，參考下面的例子：

CallProc( AParameter ); // 錯誤
CallProc(AParameter); // 正確
3.2 保留字與關鍵字
Object Pascal 的保留字與關鍵字應該全部都用英文小寫。

3.3 程序與函式
3.3.1 命名/格式
函式名稱第一個英文字母應該大寫，其後使用 Camel-capped 格式以便於閱讀。以下是錯誤示範：

procedure thisisapoorlyformattedroutinename;

適當的名稱應該像下面這個：

procedure ThisIsMuchMoreReadableRoutineName;

函式名稱應該要能代表它的功能，讓人能夠不看內部細節就知道該函式大概在做什麼。當函式執行了某項動作，我們通常會以一個動詞為首來命名，例如：

procedure FormatHardDrive;

設定某個變數值的函式應該以 Set 為字首：

procedure SetUserName;

取得某個變數值的函式應該以 Get 為字首：

procedure GetUserName: string;

3.3.2 形式參數
格式
相同型態的參數應該合併在一個語句中：

procedure Foo(Param1, Param2, Param3: Integer; Param4: string);

命名
參數名稱應該符合它們所代表的意義。參數名稱可以在前面加上大寫字母 'A'：

procedure SomeProc(AUserName: string; AUserAge: integer);

以 'A' 開頭的參數命名方式是一項不成文的慣例，這麼做可以避免當參數名稱和屬性或欄位名稱相同時所造成的混淆。

參數順序
以下對於參數順序的建議在使用「暫存器呼叫慣例」時特別有幫助（在效能上）。

最常用的參數擺在第一位，較少用的參數依左至右的順序排列。
作為輸入的參數放左邊，作為輸出的參數放右邊。
將比較一般性的參數放在左邊，比較特殊的放右邊，例如：
procedure SomeProc(APlanet, AContinent, ACountry, AState, ACity);

以上關於參數排列的建議可能會有許多例外情形，例如事件處理函式，它總是會以 Sender 最為第一個參數。

常數參數
如果參數值不會被函式修改，應該在參數前面冠上 const，特別是以下這些型態：record, array, ShortString, interface。

名稱衝突
如果你使用的兩個單元中有相同的函式名稱，當你呼叫該函式時，被叫用的是在 uses 子句中排在後面的單元的函式。為了避免這種情況，你可以明白地指出要呼叫哪個單元的函式，例如：

SysUtils.FindClose(SR);

和

Windows.FindClose(Handle);

3.4 變數
3.4.1 變數命名與格式
變數名稱應和它們的目的相符。
迴圈控制變數通常以 i, j ,k 來命名，當然你也可以用像是 UserIndex 之類有意義的名稱。
布林變數的名稱應該要能充分表達 True 或 False 的意思。

3.4.2 區域變數
函式的區域變數恨其他變數的命名規則一樣。暫時性的變數也要有適當的名稱。

當有必要的時候，在一進入函式時就要初始化區域變數。AnsiString 型態的區域變數會被自動初始化為空字串，interface 和 dispinterface 型態的區域變數會自動被初始化為 nil，而 Variant 和 OleVariant 區域變數則會被自動初始化為 Unassigned。

3.4.3 全域變數
你應該盡量避免使用全域變數，當你真的需要時才使用全域變數，而且盡量在一個單元的範圍內使用，如果一個全域變數會被多個單元使用，你應該將它移到一個共用的單元內。

〔回目錄〕

--------------------------------------------------------------------------------

3.5 型態
3.5.1 大小寫慣例
如果型態的名稱屬於保留字，就全部小寫。Win32 API 的型態則全用大寫，一些比較特殊的型態，你應該遵循 Windows.pas 或其他 API 單元裡面的寫法。至於其他的型態，通常是名稱的第一個字母大寫，其餘採用 Camel-capped 方式，參考以下範例：

var  MyString: string;    // string 是保留字.  WindowHandle: HWND;  // Win32 API 的型態.  AForm: TMyForm;        i: Integer;          // 用小寫的 integer 也無妨.

3.5.2 浮點數型態
不要使用 Real 型態，它是為了相容於舊的 pascal 程式而保留的。一般使用浮點數時，請使用 double 型態，它是 IEEE 定義的標準資料格式。如果需要更大範圍的數值，可使用 Extended，但它是屬於 Intel 規格，而且 Java 不支援。只有當浮點數實踐佔用的位於組大小有意義時才使用 Single（例如使用另一種語言寫成的 DLL 時）。

3.5.3 列舉型態（Enumerated Types）
列舉型態的名稱必須以字母 'T' 開頭，藉此突顯它是一個型態。列舉型態中的識別字名稱應該以 2～3 個和其型態相關的小寫英文字母開頭，例如：

TSongType = (stRock, stClassical, stCountry, stAlternative, stHeavyMetal, stRB);
列舉型態的變數名稱可以直接將型態的第一個字母 'T' 拿掉來命名，或是其他具有特殊意義的名稱，例如：FavoriteSongType1, FavoriteSongType2。

3.5.4 Variant 和 OleVariant 型態
通常不建議使用這兩種型態，它們通常被使用在只有執行時期才能確定其型態的時候，例如 COM 和資料庫程式設計。你應該只有在撰寫 COM 相關程式的時候才使用 OleVariant，因為 Variant 可以有效率地儲存 Delphi 字串，而 OleVariant 則必須將所有字串轉換成 OLE 字串（WideChar 字串），而且不會被參考計數－－它們總是被複製成新的字串。

3.5.5 結構型態
陣列型態
陣列型態的名稱開頭冠上 'T'，如果要宣告指標陣列的型態，名稱開頭應該冠上 'P'，而且要宣告在陣列型態的前面，參考範例：

type
PCycleArray = ^TCycleArray;
TCycleArray = array [1..100] of integer;
陣列的變數在命名時可以直接將開頭的 'T' 拿掉作為變數名稱。

記錄型態
和陣列型態的規則一樣，參考下面的範例：

type
PEmployee = ^TEmployee;
TEmployee = record
EmployeeName: string
EmployeeRate: Double;
end;
〔回目錄〕

--------------------------------------------------------------------------------

3.6 陳述句
3.6.1 if 陳述句
比較常發生的情形應該放在 if/then/else 裡面的 then 字句中，較少發生的情形則放在 else 字句裡面。
避免使用一長串的 if 敘述，如果可能的話，使用 case 來取代。
巢狀 if 不應該超過四層。當巢狀 if 超過四層時，你應該想辦法以更簡明的方式來撰寫這段程式碼（例如將部分判斷式寫成獨立函式）。
不要在 if 敘述中使用不必要的括號。
3.6.2 case 陳述句
case 裡面的各個條件應該以數字或英文字母的順序排列。
各個條件的處理動作應盡量簡短，通常以不超過五行程式碼為限，如果要處理的動作太複雜的話，應該寫成獨立的函式。
else 子句只有當需要預設行為或者偵測錯誤時才使用。
3.6.3 while 陳述句
不建議在 while 中使用 Exit 跳離迴圈，儘可能只使用條件式和 break 命令。
給 while 迴圈使用的變數的初始化動作應該要緊鄰在進入迴圈之前，其間不要有任何不相干的程式碼。
任何後續處理應在迴圈後立即進行。
3.6.4 for 陳述句
3.6.5 repeat 陳述句
3.6.6 with 陳述句
〔回目錄〕

--------------------------------------------------------------------------------

3.7 結構化異常處理（Structured Exception Handling）
異常處理常被用於捕捉錯誤和資源回收，例如，假設你你配置了一項資源，你可以在 finally 子句撰寫釋放資源的程式碼以確保資源會被釋放。

3.7.1 try...finally
在不需要理會錯誤的情形下，可以使用此敘述來確保資源被回收，但是每一個配置資源的動作都應該對應一個 try...finally 敘述，以下的程式碼可能會引發問題：

SomeClass1 := TSomeClass.Create;
SomeClass2 := TSomeClass.Create;
try
{do some code }
finally
SomeClass1.Free;
SomeClass2.Free;
end;
比較安全的寫法應該是：

SomeClass1 := TSomeClass.Create;
try
SomeClass2 := TSomeClass.Create;
try
{do some code }
finally
SomeClass2.Free;
end;
finally
SomeClass1.Free;
end;
3.7.2 try...except
你可以用此敘述來捕捉異常並進行額外的處理。一般來說，你不會只為了顯示錯誤訊息而使用 try...except，因為 Application 物件會自動幫你顯示錯誤訊息。如果你在 except 裡面處理完該做的事情之後想要再將錯誤傳出去，可以使用 raise 指令。

〔回目錄〕

--------------------------------------------------------------------------------

3.8 類別（classes）
3.8.1 命名/格式
類別的型態名稱以大寫 'T' 開頭，例如：

type
TCustomer = class(TObject)
類別實體的名稱可以直接將前面的 'T' 去掉：

var
Customer: TCustomer;
註：元件的命名規則請參考「元件」章節。

3.8.2 欄位（Fields）
類別中的欄位，指的就是私有成員（private members），他們的命名規則和一般的變數相同，但是必須在前面冠上大寫 'F' ，表示他們是 fields。
3.8.3 方法（Methods）
命名/格式
Methods 的命名規則和一般函式相同。

靜態方法（Static Methods）
當你不希望某個 method 被子類別改寫（override）的話，可以將它宣告為靜態方法。

虛擬/動態方法（Virtual/Dynamic Methods）
當你預期某個 method 會被子類別改寫的話，應將它宣告為 virtual。而 dynamic 的使用時機是當一個類別有很多子類別的時候，例如一個類別有 100 個子類別，而這些子類別都會用到某個 method，但是很少會去改寫它，那這個 method 就應該被宣告為 dynamic 以節省記憶體。

註：每一個類別的 virtual methods 需要以一個虛擬方法表（VMT, Virtual Method Table）來記錄。

抽象方法（Abstract Methods）
抽象方法應該只被用於抽象類別中，它們主要是用來定義基礎類別的介面。

屬性存取方法（Property-Access Methods）
存取屬性的方法就是你經常在元件的原始碼中看到的 Get/Set 方法，它們各自對應到屬性的讀取和寫入動作，寫入的方法名稱是以 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;

這些 Get/Set 方法應該放在 private 或 protected 區段中。

3.8.4 屬性（Properties）
屬性可以讓外界存取類別的私有成員，其命名方式是將私有成員名稱前面的 'F' 去掉。由於屬性代表的是資料，所以名稱應該是名詞而非動詞。

通常屬性是單數，如果是陣列型態的屬性，其名稱應該使用複數。

〔回目錄〕

--------------------------------------------------------------------------------

4.0 檔案
4.1 Project Files
專案名稱應該要能描述其功能，例如，The Delphi 5 Developer's Guide 的 Bug Manager 的專案名稱就取名為 DDGBugs.dpr。

4.2 Form Files
Form 的檔案名稱以 Frm 作結尾，例如，AboutFrm.pas。主視窗通常會以 MainFrm.pas 命名。

4.3 Data Module Files
Data Module 的檔案名稱以 DM 作結尾，例如，CustomerDM.pas 或 CustomerDm.pas。

4.4 Remote Data Module Files
Remote Data Module 的檔案名稱以 RDM 作結尾，例如，CustomerRDM.pas 或 CustomerRdm.pas。

註：MTSDataModule 也是 Remote Data Module 的一種，因此可以使用相同的命名方式。

4.5 Unit Files
4.5.1 一般單元結構
uses 子句
在 interface 區段的 uses 子句應該只包含 interface 會用到的單元，在 implementation 區段的 uses 子句應該只包含 implementation 會用到的單元，沒有用到的單元應該將其移除。

interface 區段
如其名稱所揭示的，這部分是提供外界存取的介面，在此區段中所宣告的型態，變數，函式都可能會被其他單元使用，因此不希望被外界存取者應置於 implementation 區段內。

implementation 區段
此區段所宣告的型態，變數，函式等都只能被此單元使用。

initialization 區段
不要把很花時間的工作放在此區段中，否則會拖慢應用程式載入的時間。

finalization 區段
在 initialization 區段中配置的資源必須在此處釋放。

4.5.2 一般用途的單元
例如，一個工具類的單元可能被命名為 BugUtilities.pas（或 BugUtils.pas），而一個專門存放全域變數的單元可能叫做 AppGlobals.pas。

記住這類共用單元可能被專案中所有的程式單元及套件使用，為了避免名稱衝突，在為檔案命名時不要用太普遍的名稱。

4.5.3 元件單元
元件單元應該要被集中存放在一個獨立的目錄，不應該放在專案目錄下跟其他檔案混在一起。

4.6 檔案表頭（File Headers）
檔案表頭通常提供了檔案的用途，版權宣告，作者，注意事項...等資訊。你可以採用類似下面的寫法：

(*---------------------------------------------------------------------------
說明

簡要說明此檔案的用途。

注意事項

版權宣告

修改歷史
---------------------------------------------------------------------------*)
如果有輸入或輸出的參數，以及跟外部互動的介面也可以在檔頭中註明。

〔回目錄〕

--------------------------------------------------------------------------------

5.0 Forms and Data Modules
5.1 Forms
5.1.1 Form 型態命名標準
以 TXxxxForm 的方式命名，例如：

TAboutForm = class(TForm)
主視窗通常會這麼寫：

TMainForm = class(TForm)
輸入客戶基本資料的表單可能像這樣：

TCustomerEntryForm = class(TForm)
5.1.2 Form 實體命名標準
將型態名稱前面的 'T' 去掉作為 Form 的實體名稱，參考下面的範例：

型態名稱
實體名稱

TAboutForm AboutForm
TMainForm MainForm
TCustomerEntryForm CustomerEntryForm

5.1.3 自動建立的 Forms
只有主視窗才應該被自動建立，除非有特殊的原因，否則其他視窗都應該以動態的方式建立。

5.1.4 建立 Modal Form 的函式
當你要使用一個 Form 時，不要用 Delphi 幫你產生的 Form 變數，應該以一個函式來建立及顯示這個 Form，參考下面的範例：

unit UserDataFrm;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls;type  TUserDataForm = class(TForm)    edtUserName: TEdit;    edtUserID: TEdit;  private    {Private declarations }  public    {Public declarations }  end;function GetUserData(var aUserName: string; var aUserID: Integer): Word;implementation{$R *.DFM}function GetUserData(var aUserName: string; var aUserID: Integer): Word;var  UserDataForm: TUserDataForm;begin  UserDataForm := TUserDataForm.Create(Application);  try    UserDataForm.Caption := 'Getting User Data';    Result := UserDataForm.ShowModal;    if Result = mrOK then     begin      aUserName := UserDataForm.edtUserName.Text;      aUserID := StrToInt(UserDataForm.edtUserID.Text);    end;  finally    UserDataForm.Free;  end;end;end.

5.2 Data Modules
5.2.1 Data Module 型態命名標準
以 TXxxDataModule 或 TXxxDmod 的方式命名，例如：

TCustomerDmod = class(TDataModule)
5.2.2 Data Module 實體命名標準
將型態名稱前面的 'T' 去掉作為 Data Module 的實體名稱，例如：

var
CustomerDmod: TCustomerDmod;
5.3 Remote Data Modules
命名方式可以和一般的 Data Modules 一樣使用 TXxxDmod，或者用 TXxxRdmod。例如：

var
CustomerRmod: TCustomerRdmod;
〔回目錄〕

--------------------------------------------------------------------------------

6.0 套件（Packages）
6.1 執行時期 v.s. 設計時期套件
執行時期套件應該只包含其中各元件所需參考的單元或套件，其他只有在設計時期才會用到的程式碼或單元，例如屬性/元件編輯器等，就應該放在設計時期套件裡，此外，用來註冊元件的單元也應該放在設計時期套件裡。

6.2 檔案命名標準
套件的檔案名稱名應該仿照以下的例子：

iiilibvv.dpk（設計時期套件）
iiistdvv.dpk（執行時期套件）
其中 iii 表示用來作為識別的三個字元，可能是你的姓名，公司名稱，或是其他個體的縮寫。字元 vv 表示此套件所適用的 Delphi 版本號碼。而 lib 和 std 則用來區別設計時期和執行時期。

假設某個套件同時有設計時期和執行時期兩種套件，他們會有相似的檔案，例如 Delphi 5 Developer's Guide 的套件會命名為：

DdgLib50.dpk（設計時期套件）
DdgStd50.dpk（執行時期套件）
〔回目錄〕

--------------------------------------------------------------------------------

7.0 元件（Components）
7.1 使用者自訂元件
7.1.1 元件型態命名標準
元件的命名方式和之前「類別」一節當中提到的命名方式類似，差別僅在於元件名稱前面會冠上三個字元以作為識別，這三個前置字元可以是你個人、公司、或任何個體的名稱縮寫，例如，在 Delphi 5 Developer's Guide 裡面有一個時鐘元件，他的定義是：

TddgClock = class(TComponent)

注意這三個前置字元都是小寫英文字母。

7.1.2 元件單元
元件所屬的單元裡面應該就只包含一個主元件，所謂「主元件」就是指那些會放到 Delphi 元件盤上面的元件，其他輔助性質的元件則可以跟主元件放在同一個單元裡面。

7.1.3 使用註冊單元
用來註冊元件的程序應該被抽離出來，並集中到一個獨立的檔案當中，這個專門用來註冊元件的單元同時也可以用來註冊屬性編輯器，元件編輯器，專家（Delphi experts）....等等。

由於註冊元件的動作只有在設計時期套件中才會執行，因此註冊單元應該只被放在設計時期套件裡，而不會出現在執行時期套件裡。註冊單元的檔案名稱建議您以下列型式命名：

XxxReg.pas

其中 Xxx 表示用來作為識別的三個字元，可能是你的姓名，公司名稱，或是其他個體的縮寫。例如，在 Delphi 5 Developer's Guide 裡面用來註冊元件的單元其檔名就是 DdgReg.pas。

7.2 元件實體命名慣例
元件的命名採用類似「匈牙利表示法」的命名慣例，元件的名稱分為「元件型態字首」以及「元件修飾名稱」兩個部分。

7.2.1 元件型態字首（Component Type Prefixes）
所謂「元件型態字首」，就是一組代表元件型態的英文小寫字母，例如，TButton 的型態字首為 btn，TEdit 的型態字首為 edt。你可以依照下列的步驟挑選出合適的字首：

移除開頭的 'T' 字母，例如，"TButton" 就變成 "Button"。
移除所有的母音字母，並且全部改成小寫，例如，"Button" 就變成 "bttn"，"Edit" 變成 "edt"。
兩個連續的相同字母僅保留一個，例如，"bttn" 變成 "btn"。
若結果和其他的名稱衝突，可以開始加入母音字母，例如，"TBatton" 的字首和 "TButton" 一樣，因此可以將 "TBatton" 的字首改成 "batn"。
請參考另一篇 "Delphi 5 元件型態字首" 以取得更多元件型態字首的資訊。

7.2.2 元件修飾詞名稱（Component Qualifier Name）
元件修飾詞名稱應該要符合其作用，例如，一個用來關閉視窗的按鈕應該被命名為 "btnClose"，輸入員工姓名的文字盒應被命名為 edtEmpName。

繼承下來，從這個物件開始擴充功能，但有時候這種標準的設計方式，有實

際的困難，一者我們手上可能沒有這個物件的 Source ，二者更改這個物件之

後，需考慮原先的物件可能已經在系統中運作，為了不破壞原有的物件功能

，及使用的介面，這個時候我們需要一種偷龍轉鳳的方法，偷偷的把這個物

件至換掉，要置換這個物件，最好的方法就是產生一個一模一樣的類別出來

，而且不改變原有物件的屬性及方法，或者是在原有物件上擴充功能。

以下提供一個另類的設計方法，來解決這個問題。假如有一個 TEdit 的物件

，我們希望它在修改資料的時候，可以改變顏色，在不改變原有物件的使用

介面下，如何來擴充這個功能呢﹖

請看這個範例的說明﹕

這個繼承自 TEdit 的 TMyEdit 很簡單的宣告 ReadOnly 這個屬性，其他

Create ， Load 的方法，只是要在設計期間取得目前正確的顏色設定而已。

type

  TMyEdit = class(TEdit)

  private

    FDesignColor: TColor;

    FReadOnly: boolean;

    procedure SetReadOnly(Value: boolean);

    procedure SetColor;

  protected

    procedure Loaded; override;

  public

    constructor Create(AOwner: TComponent); override;

  published

    property ReadOnly: boolean read FReadOnly write SetReadOnly;

end;

接下來我們看 TMyEdit 如何改變原來的屬性，請把焦點放在 SetReadOnly 上面，這個

procedrue 動了以下的手腳 : 在繼承 ReadOnly 原有的屬性之後，進行顏色的改變。

procedure TMyEdit.SetReadOnly(Value: boolean);

begin

  FReadOnly:= Value;

  inherited ReadOnly:= Value;

  SetColor;

end;

SetReadOnly 在父層類別 TCustomEdit

中已有定義，只是它被放在 private

區段裡，子類別是看不到的，否則只要改寫 SetReadOnly

方法就行了。在這裡重新定義了 ReadOnly

屬性，除了保有父類別 ReadOnly

屬性的作用，並賦予它新的行為。在設計類別時，也許將

Get/Set 存取方法宣告在 protected

區段會比較方便，後代類別可以直接改寫 Get/Set

方法來改變或附加行為，但這也表示父類別將失去對私有成員的保護力，子類別幾乎

可以完全改變父類別的行為。因此，要把

Get/Set 放在 private 還是 protected

區段實為見仁見智的問題，設計者可視情況選擇對自己最有利的方式。

以下是 TMyEdit 所有實作的部分﹕

constructor TMyEdit.Create(AOwner: TComponent);

begin

  inherited;

  FDesignColor:= clWindow;

end;

procedure TMyEdit.Loaded;

begin  

  inherited;  

  FDesignColor:= Color;

end;

procedure TMyEdit.SetColor;

begin  

  if ReadOnly then    

    Color:= clBtnFace  

  else    

    Color:= FDesignColor;

end;

procedure TMyEdit.SetReadOnly(Value: boolean);

begin  

  FReadOnly:= Value;  

  inherited ReadOnly:= Value;  

  SetColor;

end;

寫好這個物件我們開始進行測試，看這個物件如何無聲無息的嵌入我們已

經寫好的單元，首先我們拉一個 Form1 出來，在上面放一個 Edit1 及

Button1 ，當然您還要建構這個 TMyEdit 的物件，為了方便起見，請將這

個單元直接 Copy 到 Form1 所屬的單元裡頭，然後在 Button1 上面，寫入 :

TMyEdit(Edit1).ReadOnly := False;

執行看看，按一下 Button1 ，這時候 Edit1 的 ReadOnly 是不是多了改變顏色的功能﹖

23.Ctrl+I 同 Tab 鍵

24.CTRL+J ( 彈出 Delphi 語句提示視窗，選擇所需語句將自動完成一條語句 ) 程式碼模板

25.Ctrl+M 同 Enter 鍵。

26.Ctrl+N 同 Enter 鍵，但游標位置保持不變

27.Ctrl+T 刪除游標右邊的一個單詞

28.Ctrl+Y 刪除游標所在行

37.CTRL+ENTER 定位到單元文件

42.Ctrl+O+U 切換選擇塊的大小寫 ( 注意鬆開 O 後再按 U,Ctrl 保持按下 )

43.Ctrl+K+O 切換選擇塊為小寫 ( 注意鬆開 K 後再按 O,Ctrl 保持按下 )

44.Ctrl+K+N 切換選擇塊為大寫 ( 注意鬆開 K 後再按 N,Ctrl 保持按下 )

45.Ctrl+Shift+G 插入 GUID

46.Ctrl+Shift+T 在游標行加入 To-Do 註釋

47.Ctrl+Shift+Y 刪除游標之後至本行末尾之間的文本

48.CTRL+SHIFT+C 編寫申明或者補上函數，絕好 !!!

59.Ctrl+E 快速選擇（呵呵，試試吧，很好玩的）

DELPHI中的快捷方式一覽
1.SHIFT+游標左鍵 先選中任一元件,按鍵後可選中視窗(選中元件後按Esc效果一樣)
2.Shift+F8 調試時彈出CPU視窗。
3.Shift+F10 等於游標右鍵（Windows快捷鍵）。
4.Shitf+箭頭 選擇
5.shift +F12 快速查找視窗並打開
6.F7 （步進式調試同時追蹤進入子過程）
7.F8 （步進式調試不進入子過程）
8.F9 執行
9.F12 切換EDITOR,FORM
10.Alt+F4 關閉所有編輯框中打開的源程序文件，但不關閉項目
11.ALT+游標左鍵 可以塊選程式碼，用來刪除對齊的重複程式碼非常有用
12.Ctrl+F9 編譯
13.Ctrl+shift+N(n=1,2,3,4......) 定義書籤
14.Ctrl+n(n=1,2,3,4......)跳到書籤n
15.CTRL +SHIFT+N 在書籤N處，再按一次 取消書籤
16.Ctrl+PageUp 將游標移至本屏的第一行，螢幕不滾動
17.Ctrl+PageDown 將游標移至本屏的最後一行，螢幕不滾動
18.Ctrl+↓ 向下滾動螢幕，游標跟隨滾動不出本屏
19.Ctrl+↑ 向上滾動螢幕，游標跟隨滾動不出本屏
20.Ctrl+Home 將游標移至文件頭
21.Ctrl+End 將游標移至文件尾
22.Ctrl+B Buffer List視窗
23.Ctrl+I 同Tab鍵
24.CTRL+J (彈出Delphi語句提示視窗，選擇所需語句將自動完成一條語句)程式碼模板
25.Ctrl+M 同Enter鍵。
26.Ctrl+N 同Enter鍵，但游標位置保持不變
27.Ctrl+T 刪除游標右邊的一個單詞
28.Ctrl+Y 刪除游標所在行
29.CTRL+C 複製
30.CTRL+V 貼上
31.CTRL+X 剪切
32.CTRL+Z 還原(Undo)
33.CTRL+S 保存
34.Ctrl+F 查找
35.Ctrl+L 繼續查找
36.Ctrl+r 替換
37.CTRL+ENTER 定位到單元文件
38.Ctrl+F3 彈出Call Stack視窗
39.Ctrl+F4 等於File選單中的Close項
40.Ctrl+Backspace 後退刪除一個詞,直到遇到一個分割符
41.Ctrl+游標轉輪 加速滾屏
42.Ctrl+O+U 切換選擇塊的大小寫(注意鬆開O後再按U,Ctrl保持按下)
43.Ctrl+K+O 切換選擇塊為小寫(注意鬆開K後再按O,Ctrl保持按下)
44.Ctrl+K+N 切換選擇塊為大寫(注意鬆開K後再按N,Ctrl保持按下)
45.Ctrl+Shift+G 插入GUID
46.Ctrl+Shift+T 在游標行加入To-Do註釋
47.Ctrl+Shift+Y 刪除游標之後至本行末尾之間的文本
48.CTRL+SHIFT+C 編寫申明或者補上函數，絕好!!!
49.CTRL+SHIFT+E 顯示EXPLORER
50.Ctrl+Tab 在Inspector中切換Properties頁和Events頁
51.CTRL+SHIFT+U 程式碼整塊左移2個空格位置
52.CTRL+SHIFT+I 程式碼整塊右移2個空格位置
53.CTRL+SHIFT+↑ 在過程、函數、事件內部, 可跳躍到相應的過程、函數、事
件的定義（在interface和implementation之間來回切換）
54.CTRL+SHIFT+↓ 在過程、函數、事件的定義處， 可跳躍到具體過程、函數、事件內部(同上)
55.Tab 在object inspector視窗按tab鍵將游標移動到屬性名區，然後鍵入屬性名的開頭
字母可快速定位到該屬性
56.Ctrl+Alt 按著Ctrl+Alt之後，可用游標選擇一個矩形塊中的程式碼，
並可比它進行複製，貼上
57.Shift+↓、↑、→、← 以1像素單位更改所選元件大小
58.Ctrl+↓、↑、→、←以1像素單位更改所選元件位置
59.Ctrl+E 快速選擇（呵呵，試試吧，很好玩的）
---------GExperts中---------
60.Ctrl+Alt+c 註釋塊
61.Ctrl+Alt+u 取消註釋塊
62.Ctrl+Alt+h 生成頭(更詳細的設置在GExperts配置的Editor Experts屬性頁)
63.Ctrl+Alt+o 選擇對應分隔符之間的語句
64.Ctrl+Alt+v 在對應的分隔符之間來回跳轉(與已有快捷鍵有衝突，請更改)

　　uses WinProcs;
　　.
　　begin
　　WinExec(……);
　　.
　　end.
　　
　　和调用Pascal库函数没什么两样。

　　2. Delphi hint的字体和色彩如何改变
　　
　　Delphi中Tapplication的属性有HintColor及HintPause。可以通过设置HintColor改变应用程序中的Hint的颜色、通过设置HintPause改变触发Hint的时间。但遗憾的是：Delphi中Hint的字体不可以改变。

　　3. Delphi里如何计算日期
　　
　　算时间在delphi中是最容易的，如下：

　　var ss : TDateTime

　　其实Tdatetime是一个双精度的浮点数，它的小数点前表示天数：如， ss := ss + 20 表示从ss开始向后20天，如果 ss = 234.567 它就表示 234.567天,当然是从公元0年开始计算的！

　　4. 如何用Delphi编ScreenSaver? (null)
　　
　　屏幕保护程序无非是扩展名换成了.SCR的可执行程序，它接受两种命令行参数：
　　s 运行命令参数
　　c 配置命令参数
　　Windows通过向程序发-s命令行参数来启动程序。要注意的是：程序的窗口是无边框和标题；窗口大小应与屏幕大小一样；还要注意窗口的事件的处理。

　　5. Delphi 中如何改目录的名字
　　
　　调用RenameFile函数，如:
　　RenameFile(’c:wang emp’, ’c:wang mp’);

　　6. DELPHI显示JPEG图像文件

　　只要 uses中加入 JPEG就行，JPEG单元里是有一个TJPEGImage类,可定义一变量如Jpeg,用LoadFromFile调入某个JPEG文件, 然后用Form的Canvas.Draw(x,y,Jpeg)即可显示.

　　7. Delphi中对Jpeg格式文件的处理…

　　(1).在 Uses 中加入 JPEG 单元;

　　(2).定义一个全程变量,例如 var AJPEG : TJPEGImage;

　　(3).在 Form 的 OnCreate 事件中加入 :

　　Canvas.Pen.Color:=clBlack;
　　Canvas.Pen.Style:=psSolid;
　　Canvas.Brush.color:=clBtnFace;
　　Canvas.Brush.Style:=bsSolid; //此上是设置 Canvas 的一些属性,便于以后
　　//Clear Form and Load a new JPEG file;
　　Ajpeg:=TJpegImage.Create;//动态生成Ajpeg;
　　Ajpeg.LoadFromFile(’D:Temp.jpg’) //生成 Ajpeg 后,调入 JPEG 文件

　　(4).在 Form 的 OnPain 事件中加入Canvas.Rectangle(2,2,560,430); //画一个黑框的矩形将图片围住;
　　
　　x:=10; y:=10;
　　Form1.Canvas.Draw(x,y,Ajpeg); //以(x,y)为左上角输出 JPEG 文件;
　　//实际上其作用是当图形被破坏是使图形恢复;

　　(5).在’Load’或’Browse’按钮的 onClick 事件中加入:

　　begin
　　if OpenPictureDialog1.Execute then
　　begin
　　Ajpeg.Free; //释放旧Ajpeg;
　　Ajpeg:=TJpegImage.Create; //产生一个新的Ajpeg;
　　Ajpeg.LoadFromFile(OpenPictureDialog1.Filename); //载入JPEG文件;
　　end;
　　Canvas.Rectangle(2,2,560,430); //将Form Clear;
　　x:=10;
　　y:=10;
　　Form1.Canvas.Draw(x,y,Ajpeg); //显示新的Ajpeg;
　　end;

　　8. DELPHI3启动画面

　　in your *.dbr files do it
　　begin
　　{Create a splash form}
　　splash:=Tsplash.Create(self);
　　splash.Show;
　　splash.update
　　Application.Initialize;
　　Application.CreateForm(..)
　　.
　　.
　　.
　　splash.close;
　　splash.free;
　　Application.Run
　　end;

忠告一

布尔型变量的赋值操作应该是直接的。例如，在一个if/then/else语句中，if子句将布尔型变量赋值为True，而else子句将其赋为False。下面这段代码的写法是不好的：

if If_Love_Delphi then
  Result:=True
else
  Result:=False;

而这样写就比较好：

Result:= If_Love_Delphi;

忠告二

避免使用嵌套的if/then/if语句，而用and来代替。下面这段代码太罗嗦：

if If_Love_Delphi then
  if If_Love_Linux then
TryKylix(Now);

应该这样写：

if If_Love_Delphi and If_Love_Linux then
  TryKylix(Now);

不用担心后面的判断语句会超前执行。Project|Options|Compiler|Syntax Options|Complete Boolean eval选项通常是关闭的（除非你选定这个项），这保证了执行顺序不会颠倒。

综合前两个忠告，假如你有一段这样的代码：

if If_Love_Delphi then
  if If_Love_Linux then
Result:=True;

就可以把它改成：

Result:= If_Love_Delphi and If_Love_Linux；

简单而言，假如结果取决于一个条件判断，那么，Result:=True或者Result:=False这样的语句就是多此一举。在初始化布尔型变量的时候，可以给它们赋值。不过根本用不着把一个布尔型变量初始化为False--Delphi在创建这个变量的时候就已经把它赋职位False了。相似的情况还有：

对象的布尔型属性(Boolean)，自动被初始化为False (0)；
整型变量(Integer)，自动被初始化为 0；
字符串(String)，自动被初始化为空字符串。

忠告三

判断布尔型变量的值时，无需用"=True"或者"=False"这样的语句。下面的写法不好：

if (If_Love_Delphi=True) and
  (If_Love_Linux=False) then
    DoNotTryLinux;

对于函数的返回值或者一个属性是布尔型的情况，应该这样写：

if If_Love_Delphi and
  not If_Love_Linux then
DoNotTryLinux;

忠告四

尽量不要用"+"操作符进行字符串合并。这样做效率太低了。下面的例子不好：

ShowMessage('在下身高'+IntToStr(iHeight)+'米，体重'+IntToStr(iWeight)+'公斤。');

这样写会较好：

ShowMessage(Format('在下身高%d，体重%d。', [iHeight,iWeight]));

忠告五

尽量多用with语句。它不仅效率高，而且使代码更加易读。比如，这段代码：

if Sender if TEdit then
  if (TEdit(Sender).Text=') or
(TEdit(Sender).Text[TEdit(Sender).SelStart]=') or
  (TEdit(Sender).SelLength=
Length(TEdit(Sender).Text))
and (Key in ['a'..'z']) then
Key:=UpperCase(Key);

就不如这样的代码来得简洁易读：

if Sender is TEdit then
  with Sender as TEdit do
if (Text=') or
   (Text[SelStart]=') or
   (SelLength=Length(Text)) and
   (Key in ['a'..'z'] then
  Key:=UpCase(Key);

(*//
标题:Delphi中建议使用的语句
整理:Zswang
连接:http://www.csdn.net/Expert/TopicView1.asp?id=724036
日期:2002-06-22
支持:wjhu111#21cn.com
//*)

{ No.1 判断逻辑类型 }
var B: Boolean;
begin
  B := Boolean(2); //这样只是为了调试//B := True;
  if B = True then ShowMessage('B = True'); //不建议//不安全
  ///////
  if B then ShowMessage('B'); //建议//简短
end;

var B: Boolean;
begin
  if Edit1.Text = '是' then //不建议//烦琐
    B := True
  else B := False;
  ///////
  B := Edit1.Text = '是'; //建议//简短
end;

{ No.2 临时SQL查询 }
begin
  QueryTemp.Close;
  QueryTemp.SQL.Text := 'SELECT SUM(金额) AS 合计 FROM 销售表';
  QueryTemp.Open; //不建议//数据没有关闭造成资源浪费
  ShowMessage(Query1.FieldByName('合计').AsString);
  /////
  QueryTemp.SQL.Text := 'SELECT SUM(金额) AS 合计 FROM 销售表';
  QueryTemp.Open;
  ShowMessage(Query1.FieldByName('合计').AsString);
  QueryTemp.Close; //建议用//使用完就关闭
end;

{ No.3 获取记录数 }
var
  vRecordCount: Integer;
begin
  Query1.SQL.Text := 'SELECT * FROM Table1'; //不建议//严重浪费资源，会取得很多不必要得信息
  Query1.Open;
  vRecordCount := Query1.RecordCount;
  Query1.Close;
  /////
  Query1.SQL.Text := 'SELECT COUNT(*) AS 记录数 FROM Table1'; //建议//快速有效、只处理一条记录
  Query1.Open;
  vRecordCount := Query1.FieldByName('记录数').AsInteger;
  Query1.Close;

  ShowMessage(IntToStr(vRecordCount));
end;

{ No.4 字段赋值 }
begin
  Table1.Edit;
  Table1.FieldByName('姓名').AsString := Edit1.Text; //不建议
  Table1.FieldByName('日期').AsDateTime := Date;
  /////
  Table1['姓名'] := Edit1.Text; //建议//简短、扩充性好
  //Table1.Fieldvalues['姓名'] := Edit1.Text; //Borland建议的方法。以及ParamValues[]
  Table1['日期'] := Date;
end;

{ No.5 使用Self指针 }
begin
  Edit1.Parent := Form1; //不建议//Form1只是一个变量//如果没有分配资源怎么办？
  ///////
  Edit1.Parent := Self; //建议
end;

{ No.6 遍历数据集 }
var
  I: Integer;
begin
  Query1.First;
  for I := 0 to Query1.RecordCount - 1 do begin //不建议//容易被影响
    Query1.Next;
    { };
  end;
  /////
  Query1.First;
  while not Query1.Eof do begin //建议
    { };
    Query1.Next;
  end;
end;

{ No.7 利用Sender参数，使代码通用 }
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = '' then //不建议
  Edit1.Color := clRed;
  ///////
  if TEdit(Sender).Text = '' then //建议//复制到EditXChange中很方便
  TEdit(Sender).Color := clRed;
end;

{ No.8 使用默认转换函数 }
var
  I: Integer;
begin
  I := StrToInt(Edit1.Text); //不建议
  ///////
  I := StrToIntDef(Edit1.Text, 0);//建议//参考StrToFloatDef,StrToDateDef....不过这些只有Delphi6才有
end;

{ No.9 遍历数组 }
var
  I: Integer;
  A: array[0..9] of Integer;
begin
  for I := 0 to 9 do //不建议
  A[I] := I;
  ///////
  for I := Low(A) to High(A) do //建议//扩充性好
  A[I] := I;
end;

{ No.10 利用MaxInt常量 }
begin
  Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建议
  ///////
  Caption := Copy(Edit1.Text, 3, MaxInt); //建议//嘻嘻，少计算一次
end;

{ No.11 Result函数指针 }
function FuncName: Boolean;
begin
  FuncName := True; //不建议//并且放在赋值号右边不能当普通变量
  ///////
  Result := True; //建议//扩充性好
end;

function FuncSum(A: array of Integer): Integer;
var I: Integer;
begin
  Result := 0;
  for I := Low(A) to High(A) do
    Result := Result + A[I]; //可不能用 FuncSum := FuncSum + A[I];
end;

{ No.12 必须执行的代码、使用try ... finally ... end语句 }
var
  vStringList: TStringList;
begin
  vStringList := TStringList.Create;
  vStringList.LoadFromFile('c:\temp.txt');
  ShowMessage(vStringList.Text);
  vStringList.Free; //不建议//如果出现异常资源将无法释放
  ///////
  vStringList := TStringList.Create;
  try
    vStringList.LoadFromFile('c:\temp.txt');
    ShowMessage(vStringList.Text);
  finally //建议//即使出现Exit都会执行
    vStringList.Free;
  end;
end;

//其他情况1
begin
  Screen.Cursor := crHourGlass;
  try
  { 耗时操作 }
  finally
  Screen.Cursor := crDefault;
  end;
end;
//其他情况2
begin
  Query1.DisableControls;
  try
  { 操作数据集 }
  finally
    Query1.EnableControls;
  end;
end;




>>对象的布尔型属性(Boolean)，自动被初始化为False (0)；
>>整型变量(Integer)，自动被初始化为 0；
>>字符串(String)，自动被初始化为空字符串。

这个不一定

局部变量最好初始化一下,不然会产生莫名错误.
特别是: Integer, string, Pointer
偶的经验
Table1['姓名'] := Edit1.Text;   这个可以  但要是：
Edit1.Text := Table1['姓名']   //这个绝对不行，因为这时候要是NULL就会报错 这时候要FieldByName

己找到答案了，AnsiString也可以在Format和sprintf里用"%s"里指代.

俺想少数两三个AnsiString还是可以用"+"来连接，而更多的AnsiString应该用sprintf或Format。

比较一下

strMsg ="姓名: " + name + "年龄: " + IntToStr(age) + "号码: " + IntToStr(num) + "工资: " + IntToStr(salary);

和

strMsg.sprintf("姓名: %s年龄: %d号码: %d工资: %d",name,age,num,salary);

后者可读性比前者要略好，生成的机器码只有1/3, 更重要的是可以把sprintf里的格式字符串提出来集中维护，而前者用"+"导致的大量零碎字符串就不好处理。

后者唯一缺点是当有大量参数时，需要花一点工夫将格式字符串和相应的参数对齐。









忠告1: 如果要用到with的地方,请想想能不能重构,将其作为一个函数使用
忠告2: 对于数据集的CLOSE请使用
       try
         DataSet.Open;
       finally
         DataSet.Close;
       end;
忠告3: 使用Sender时,请先判断一下是不是nil, 是不是非你要的那个类型
忠告4: FieldValue对null的处理实在是差,请还是使用FieldByName().AsXXXXX这个
忠告5: 如果你要写一个长长的判断,还是写成一个函数吧,不要写进一个if then中,那样,几天后,你就将看不懂了









1、关于WITH，我个人基本不喜欢用，因为他带来的是可读性非常差。一个参数类，几个属性的时候，用的还好，而且项目组人同要比较熟练这个类！如果二个以上的参数类，天知道怎么读这一小段的WITH代码。
2、关于字符串，用+和Format这两个我一般是看情况的。有些字符串边境用Format就很不好使，比如对一些SQL语句的拼写，多个SQL用+连接代码易读性高。而且这个效率还算好！然而一些楼主都提及的字符串，当然用Format要好，同样易读性好，我觉得在使用到字符（串）操作的时候可读性是主要的，如果跟效率搭上边了，长字符串处理，我觉得已经是设计问题了。
3、关于FOR和WHILE的比较，数据集的遍历当然用WHILE。RecordCount除非你不用数据集过渡，如果用了，这个系统大了，维护死你，不可预见性太高了。这不是效率问题，是你写出来的软件能不能用的问题。
4、关于FieldByName。这个嘛提下，我一直都是用它的。除非特殊性情会用Fields[]。要不然，别人的软件交给你维护的时候，你就等着哭吧，查字段你就得花上所有的加班时间。。

可能我说的没道理，大家就指出来，如果能证明就更好了，这样我又学到东西了。。

 Ctrl+PageUp      将光标移至本屏的第一行，屏幕不滚动。
 Ctrl+PageDown    将光标移至本屏的最后一行，屏幕不滚动。
 Ctrl+↓          向下滚动屏幕，光标跟随滚动不出本屏。
 Ctrl+↑          向上滚动屏幕，光标跟随滚动不出本屏。
 Ctrl+Shift+NUM   在光标行设置最多九个临时标志号，对临时切换非常有用。
    行的左边将出现一本书，封面有NUM，再按一次取消设置。 
 Ctrl+NUM         直接将光标跳到NUM处，NUM是用Ctrl+Shift+NUM设置的标号。
    NUM不能用小键盘。
 Ctrl+Home        将光标移至文件头。
 Ctrl+End         将光标移至文件尾。
 Ctrl+B           Buffer List窗口。
 Ctrl+I           同Tab键。
 Ctrl+M           同Enter键。
 Ctrl+N           同Enter键，但光标位置保持不变。
 Ctrl+T           删除光标右边的一个单词。
 Ctrl+Y           删除光标所在行。

 Ctrl+Shift+↑    光标在函数体内时，将光标快速移至当前函数声明处。
 Ctrl+Shift+↓    光标在函数声明行时，将光标快速移至函数定义处。
 Ctrl+Shift+C     声明一个过程或函数后，直接生成过程或函数的名称、begin、end;
 Ctrl+Shift+E     光标在Edit窗口和Explorer窗口间切换。
 Ctrl+Shift+G     插入GUID。
 Ctrl+Shift+J     弹出Delphi语句提示窗口，选择所需语句将自动完成一条语句。
 Ctrl+Shift+T     在光标行加入To-Do注释。
 Ctrl+Shift+Y     删除光标之后至本行末尾之间的文本。

 Ctrl+F3          Call Stack窗口。
 Ctrl+F4          等于File菜单中的Close项。

 Ctrl+鼠标转轮    加速滚屏。

 Shift+F8         调试时弹出CPU窗口。
 Shift+F10        等于鼠标右键（Windows快捷键）。

 Alt+F4           关闭所有编辑框中打开的源程序文件，但不关闭项目。

unit <库单元名称>　

interface　

uses <选择性的库单元列表>

{公有说明}　

implementation　

uses <选择性的库单元列表>

{私有说明}

{过程和函数的执行部分}

    initialization {选择性的}

{选择性的初始化程序}

end.