版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

zyj8119

木蟲 (著名寫手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
散金: 1440
紅花: 35
帖子: 2936
在線: 1329.4小時
蟲號: 664177
注冊: 2008-11-29
性別: GG
專業(yè): 理論和計算化學(xué)

[交流] 【轉(zhuǎn)帖】Delphi代碼的標(biāo)準(zhǔn)風(fēng)格已有4人參與

我們承認(rèn)許多好的已經(jīng)確定的工作室或個人，擁有他們自己的和本文里所說的不同的編程習(xí)慣，但是，我們強(qiáng)烈建議你使用一個工具將你的代碼轉(zhuǎn)換為Borland風(fēng)格的代碼，然后再提交給Borland，Project JEDI或其他任何公開的源代碼知識庫。我們不想強(qiáng)迫你改變你的習(xí)慣，但我們堅持所有同Borland產(chǎn)品一起工作的的代碼遵循本文描述的習(xí)慣。
對象Pascal是一種優(yōu)美的設(shè)計語言。較強(qiáng)的可讀性就是它的一個優(yōu)點。本文設(shè)計的標(biāo)準(zhǔn)將增強(qiáng)對象Pascal代碼的可讀性。當(dāng)開發(fā)人員遵從本文展現(xiàn)的這些簡單的習(xí)慣，他們也將成為標(biāo)準(zhǔn)，這將有益于所有的Delphi開發(fā)人員使用統(tǒng)一的易讀的代碼風(fēng)格。執(zhí)行這些標(biāo)準(zhǔn)的努力將增加開發(fā)人員的源代碼的價值，特別是在維護(hù)和調(diào)試循環(huán)階段。
盡管我們相信并且贊美本文所宣揚的風(fēng)格，但我們沒有必要支持它，因為它本身是正確的而其它的則是錯誤的。然而我們相信絕大多數(shù)開發(fā)人員遵從的標(biāo)準(zhǔn)是有它的功效的，所以我們?nèi)匀恢С植⒕S護(hù)該風(fēng)格。人類的大腦總在適應(yīng)標(biāo)準(zhǔn)，并且找尋方法去快速組織所熟悉的模式，從而快速而有效地理解其含義。正是因這種要求而建立的標(biāo)準(zhǔn)將使大量的人盡可能容易的閱讀代碼。如果在初次使用我們的指導(dǎo)方針是感到陌生，那么我們請你堅持一會兒，你會發(fā)現(xiàn)你也變得習(xí)慣了。或者，如果你愿意，你也可以保持你自己的風(fēng)格，并通過一個遵從我們標(biāo)準(zhǔn)的程序來轉(zhuǎn)換，然后你可以將你的代碼提交給Borland或其他知識庫了。
一些文本編輯器，象Visual SlickEdit可以幫助你按照一定的風(fēng)格來格式化你的代碼。

一個免費的由Egbert van Nes開發(fā)的格式化程序可以在以下的連接獲得：
http://www.slm.wau.nl/wkao/delforexp.html

另一個針對Delphi的商業(yè)化程序是crackerJax：
http://www.k.NETicsoftware.com/html/products.html

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

1.0 介紹
本文不是為Object Pascal語言定義語法規(guī)則的一種嘗試。例如：在else前面放置封號"；"是違法的；編譯器不允許這種用法。所以我不會在本文中展示語法規(guī)則。本文旨在在語言提供選擇的地方定義適當(dāng)?shù)男袨榱?xí)慣。我通常在只有一種控制方法的地方保持沉默。

1.1 背景
在本文出現(xiàn)的指導(dǎo)方針基于Delphi源代碼的一部分。Delphi源代碼恰好遵循這些指導(dǎo)方針。如果你發(fā)現(xiàn)了違反這些原則的情況，那么應(yīng)該是這些原則而不是那些不確定的源代碼成為你的指導(dǎo)方針。然而，你可以使用這些原代碼作為這些原則的補充，至少它可以幫助你得到關(guān)于你自己的代碼的形式的一般看法。

1.2 感謝
本文這些格式是基于已完成的為Java語言定義的風(fēng)格標(biāo)準(zhǔn)的工作的。Java在規(guī)則上對格式化Object Pascal源代碼是沒有任何影響的，但在Sun網(wǎng)站上的文檔是本文的基礎(chǔ)。在某些特殊的地方本文的風(fēng)格和格式受到"A Coding Style Guide for Java WorkShop and Java Studio Programming"(Achut Reddy, 《Java車間和Java工作室的編碼向?qū)А?的很大啟發(fā)。該文章可在該URL找到：http://www.sun.com/workshop/java/wp-coding
Delphi小組為本文的完成做出了重大貢獻(xiàn)，事實上，如果沒有它們的幫助，本文是無法完成的。

2.0 源文件
Object Pascal源代碼主要被分成單源文件和項目文件，他們都遵從相同的習(xí)慣。Delphi項目文件有一個.DPR的擴(kuò)展名。它是項目的主文件。任何在項目中使用的單元文件都有一個.PAS的擴(kuò)展名。其它的文件，象批處理文件、HTML文件或者DLLs也可以在項目中扮演一個角色，但本文只涉及項目文件和單元文件。

2.1 源文件命名
Object Pascal支持長文件名。如果你使用幾個單詞來形成一個單一的名稱，那么最好是為每個單詞使用大寫的開頭字母：MyFile.pas。這被認(rèn)為是插入式大寫或駝峰式大寫。擴(kuò)展名應(yīng)當(dāng)使用小寫形式。由于歷史原因，Delphi源代碼經(jīng)常使用8:3式命名模式，但開發(fā)人員不必為上述規(guī)則所限制而轉(zhuǎn)向Delphi小組的用法。
如果你正在翻譯一個C/C++頭文件，那么你翻譯的Pascal文件要與C/C++頭文件保持相同的主文件名，擴(kuò)展名用.PAS。例如：windows.h -> Windows.pas。如果Pascal語法強(qiáng)迫你將幾個頭文件組合到一個單一的單元文件中，那么包含其他頭文件的那個頭文件的文件名將作為新單元文件的名稱。例如：Windows.h包含了WinBase.h文件，則新的單元文件名為Windows.pas.

2.2 源文件組織
所有的Object Pascal單元文件應(yīng)當(dāng)按照以下的順序包含下列元素：
版權(quán)／標(biāo)識塊注釋
單元名
接口段
實現(xiàn)部分
一個結(jié)束符"end."

每個部分之間至少空一行。

其它的元素應(yīng)當(dāng)被結(jié)構(gòu)化成你認(rèn)為最適當(dāng)?shù)捻樞�。但版�?quán)應(yīng)當(dāng)出現(xiàn)在文件的最開始，然后是單元名，然后是任何條件定義、編譯器指示符或包含語句，然后是uses字句：

{*******************************************************}
{ }
{ Borland Delphi Visual Component Library }
{ }
{ Copyright (c) 1995,98 Inprise Corporation }
{ }
{*******************************************************}

unit Buttons;

{$S-,W-,R-}
{$C PRELOAD}

interface

uses
Windows, Messages, Classes,
Controls, Forms, Graphics,
StdCtrls, ExtCtrls, CommCtrl;

如果你將type段放到const段之前，或者將它們兩者混合，那是沒有什么影響的。

實現(xiàn)部分需要首先將implementation寫出來，然后是uses字句，然后是其它的包含聲明或別的指示符：

implementation

uses
Consts, SysUtils, ActnList,
ImgList;

{$R BUTTONS.RES}

2.2.1 版權(quán)／標(biāo)識塊注釋
每一個源文件都應(yīng)當(dāng)以一個包含版本信息和標(biāo)準(zhǔn)版權(quán)布告塊注釋開始。版本信息可以象下面這樣：

{*******************************************************}
{ }
{ Widgets Galore }
{ }
{ Copyright (c) 1995,98 Your Company }
{ }
{*******************************************************}

版權(quán)布告至少需要包含以下行：
版權(quán)所有(C) 年份版權(quán)所有者

如果你是為Borland開發(fā)軟件的第三方，你可以在版權(quán)的最后加入你自己的名字：

{*******************************************************}
{ }
{ Borland Delphi Visual Component Library }
{ Copyright (c) 1995,99 Borland International }
{ Created by Project JEDI }
{ }
{*******************************************************}

2.2.2 unit聲明
每一個單元文件要有一個unit聲明。unit是一個保留字，因此它需要小寫。單元的名稱可以是大小寫混合的，但必須和單元文件的文件名相同。例如：
unit MyUnit;

則單元文件的名稱應(yīng)當(dāng)為MyUnit.pas。在文件系統(tǒng)中，它作為這個文件的入口。

2.2.3 uses聲明
在單元內(nèi)部，uses聲明應(yīng)當(dāng)使用小些的uses引導(dǎo)。被引用的單元名要遵循在他自己的單元中被定義時使用的大寫習(xí)慣：
uses MyUnit;
每一個單元名被一個逗號同其相鄰的單元名分開，最后一個單元名后面跟一個分號：

uses
Windows, SysUtils, Classes, Graphics, Controls, Forms,
TypInfo;
在uses的下一行開始加入單元名和在uses后面直接加入單元名同樣都是正確的。
uses Windows, SysUtils, Classes, Graphics, Controls, Forms,
TypInfo;

你可以格式化你的單元名列表，可以在80個字符限制下?lián)Q行，或者每個單元名一行。

2.2.4 類和接口定義
類的定義以兩個空格開始，然后是一個前綴"T"。前綴要大寫，每個內(nèi)嵌的單詞要大寫開頭。不要在Object Pascal源代碼中使用制表符"Tab"。例：
TMyClass
在標(biāo)識符之后接一個空格，然后是等號，然后是class單詞，class要小寫：
TMyClass = class
如果你的類是從祖先繼承來的，則需要加入包含著祖先類的左右括號：
TMyClass = class(TObject)
范圍指示符離頁邊兩個空格，并以下面的順序出現(xiàn)：
TMyClass = clss(TObject)
private
protect
public
published
end;
數(shù)據(jù)通常只在private段聲明，并且它們的標(biāo)識符以"F"開始。所有此類的聲明離頁邊4個空格：

TMyClass = class(TObject)
private
FMyDate: Integer;
function GetDate: Integer;
procedure SetData(Value: Integer);
public
published
property MyData: Integer read GetData write SetData;
end;

接口遵從同類相同的規(guī)則，除了你應(yīng)當(dāng)忽略范圍指示符和私有數(shù)據(jù)，并且使用interface單詞代替class單詞。
命名習(xí)慣
除了保留字和指示符是小寫外，所有的Pascal標(biāo)識符應(yīng)當(dāng)使用駝峰式格式，即每個標(biāo)識符開頭字母要大寫，內(nèi)嵌單詞的首字母也要大寫，只取首字母的縮寫詞也一樣。
MyIdentifier
MyFTPClass
對此規(guī)則主要的例外是頭文件翻譯的情況，應(yīng)當(dāng)遵循在原頭文件中的命名習(xí)慣。例如：
WM_LBUTTONDOWN，不要寫成wm_LButtonDown.
除了頭文件翻譯外，不要使用下劃線分割單詞。類名應(yīng)當(dāng)是名詞或名詞短語。接口或類的名稱依賴于接口的顯而易見的目的、用途。

好的名字：
Addressform, ArrayIndexOutOfBoundsException
低劣的名字：
ManageLayout //使用動詞短語
delphi_is_new_to_me //使用下劃線

3.1 單元命名
參見單元聲明

3.2 類／接口命名
參見類／接口聲明

3.3 域／字段命名
使用駝峰式格式。以大寫的"F"開始，并且在private中聲明所有的數(shù)據(jù)，使用屬性或獲取者(getter)和安裝者(setter)來提供公共的存取操作。例如：使用名字GetSomething來命名一個返回內(nèi)部域／字段值的函數(shù)，使用SetSomething來命名一個設(shè)置域／字段值的過程。
不要在const段全部使用大寫，除非是頭文件翻譯的需要。
Delphi是在加利福尼亞開發(fā)的，所有我們阻止記號的使用，除非是頭文件翻譯的需要。
正確：
FMyString: string;
不正確：
lpstrMyString: string;
當(dāng)然在枚舉類型定義中保留了匈牙利命名法：
TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp,
bkYes, bkNo, bkClose, bkAbort, bkRetry,
bkignore, bkAll);
在這種情況下字符bk被插入到這個枚舉類型的每一個元素前。bk意味著ButtonKind。
在考慮命名習(xí)慣時，要避免使用單個字符的名稱，但零時變量和循環(huán)變量除外。
避免使用"l"(L)變量，因為它和"1"(one)無論在打印機(jī)還是在顯示器上都難以分辨。

3.4 方法命名
方法命名也使用駝峰格式。方法命名習(xí)慣同非常量域的命名方法是相同的，但可以從上下文區(qū)分它們。方法命名應(yīng)當(dāng)強(qiáng)制使用動詞或動詞短語。例如：
//好的方法命名：
ShowStatus, DrawCircle, AddLayoutComponent
//差的方法命名：
MouseButton //名詞短語，沒有描述功能
drawCircle //以小寫字母開頭
add_layout_component //使用了下劃線

//以下方法的功能不夠明確。它是開始運行一個服務(wù)呢(更好：StartServer)還是判斷一個服務(wù)是否在運行(更好：IsServerRunning)？
ServerRunning //動詞短語，但不是命令
一個獲取或者設(shè)置一些類屬性的方法應(yīng)當(dāng)分別被稱為GetProperty或者SetProperty，Property代表該屬性的名稱。例如：
GetHeight, SetHeight
一個測試類的布爾屬性的方法應(yīng)當(dāng)被命名為IsVisible，Visible代表屬性的名稱。例如：
IsResizable, IsVisible

3.5 局部變量命名
除了不使用"F"外，局部變量的命名規(guī)則同域／字段的命名規(guī)則一樣。參見3.3節(jié)。

3.6 保留字
保留字和指示符要全部小寫。這有時有些混亂。例如：Integer是一個標(biāo)識符，并且以首字母大寫出現(xiàn)。而string保留字則全部小寫。

3.7 類型聲明
所有類型名稱聲明以字母T開始，接下來和類的命名相同。

4.0 空白用法
4.1 空白行
空白行可以通過將邏輯相關(guān)的代碼段分組來提高可讀性。一個空白行也可以在下列地方使用：
在版權(quán)注釋塊之后，包聲明(package)，導(dǎo)入段(import)。
類聲明之間。
方法聲明之間。
4.2 空格
Object Pascal是一種非常清晰易讀的語言。通常，你不需要在代碼里加入很多空格來分隔行。以下幾條提供了一些原則該如何使用空格：
4.2.2 不應(yīng)當(dāng)使用空格：
在方法名和左括號之間；
在.(dot)操作符之前或之后；
在一元操作符和它的操作數(shù)之間；
在一個類型和被它強(qiáng)制轉(zhuǎn)換的表達(dá)式之間；
在左括號之后和右括號之前；
在左方括號之后和右方括號之前；
在一個封號前；
例如：
//正確用法：
function TMyClass.MyFunc(var Value: Integer);
MyPointer := @MyRecord;
MyClass := TMyClass(MyPointer);
MyInteger := MyIntegerArray[5];
//錯誤用法：
function TMyClass.MyFunc( var Value: Integer ) ;
MyPointer := @ MyRecord;
MyClass := TMyClass ( MyPointer ) ;
MyInteger := MyIntegerArray [ 5 ] ;

4.3 縮進(jìn)
你應(yīng)當(dāng)總是為所有的縮進(jìn)層次縮進(jìn)兩個空格。換句話說就是，第一層縮進(jìn)兩個空格，第二層縮進(jìn)四個空格，第三層縮進(jìn)六個空格……。不要使用制表符Tab。
當(dāng)然，仍然有少量的例外。保留字象unit, uses, type, interface, implementation, initialization 和finalization總是頂格的。單元的最后一個end標(biāo)識符也是頂格的。在項目文件中，program和主begin、end也是頂格的。在主begin..end塊內(nèi)則需要縮進(jìn)至少兩個空格。

回復(fù)此樓

» 猜你喜歡

085601材料工程專碩求調(diào)劑已經(jīng)有3人回復(fù)
293求調(diào)劑已經(jīng)有10人回復(fù)
有沒有道鐵/土木的想調(diào)劑南林，給自己招師弟中～已經(jīng)有6人回復(fù)
085600材料與化工已經(jīng)有3人回復(fù)
材料與化工專碩調(diào)劑已經(jīng)有4人回復(fù)
085601專碩，總分342求調(diào)劑，地區(qū)不限已經(jīng)有3人回復(fù)
0854可跨調(diào)劑，一作一項核心論文五項專利，省、國級證書40+數(shù)一英一287 已經(jīng)有3人回復(fù)
08工科 320總分求調(diào)劑已經(jīng)有4人回復(fù)
268求調(diào)劑已經(jīng)有8人回復(fù)
26申博已經(jīng)有4人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

錳酸鋰的XRD標(biāo)準(zhǔn)譜圖已經(jīng)有4人回復(fù)
芽孢桿菌OD值與活菌數(shù)相對應(yīng)的標(biāo)準(zhǔn)曲線已經(jīng)有9人回復(fù)
美國科學(xué)院院士王曉東專訪：院士標(biāo)準(zhǔn)不是任人打扮的小女孩已經(jīng)有40人回復(fù)
求助！ 5微米左右粒度分析標(biāo)準(zhǔn) 已經(jīng)有4人回復(fù)
關(guān)于奧氮平美國標(biāo)準(zhǔn)的問題已經(jīng)有6人回復(fù)
【原創(chuàng)】本人單位招聘（中國標(biāo)準(zhǔn)化研究院）學(xué)食品的碩士兩名已經(jīng)有20人回復(fù)
【分享】一個Delphi的源碼加密插件已經(jīng)有4人回復(fù)

好好學(xué)習(xí)，天天向上。

1樓 2010-12-02 16:31:15

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲 (著名寫手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
散金: 1440
紅花: 35
帖子: 2936
在線: 1329.4小時
蟲號: 664177
注冊: 2008-11-29
性別: GG
專業(yè): 理論和計算化學(xué)

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:31:15:
我們承認(rèn)許多好的已經(jīng)確定的工作室或個人，擁有他們自己的和本文里所說的不同的編程習(xí)慣，但是，我們強(qiáng)烈建議你使用一個工具將你的代碼轉(zhuǎn)換為Borland風(fēng)格的代碼，然后再提交給Borland，Project JEDI或其他任何公 ...

4.4 續(xù)行
行應(yīng)當(dāng)限制在80列以內(nèi)。超過80列的行應(yīng)當(dāng)被分成多個連續(xù)的行。所有的后續(xù)行應(yīng)當(dāng)排列在該聲明的第一行之后，并且縮進(jìn)兩個字符的空格。
例如：
//正確：

function CreateWindowEx(dwExStyle: Dword;
lpClassName: PChar; lpWindowName: PChar;
dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
hWndParent: HWND; hMenu: HMENU; hInstance: HINST;
lpParam: Pointer): HWND; stdcall;

if ((X = Y) or (Y = X) or
(Z = P) or (F = J) then
begin
S := J;
end;

不要在參數(shù)和它的類型之間換行，除非列表是由逗號分隔，那樣的話要在最后一個參數(shù)前換行，這樣類型名就在下一行開頭了。冒號和它的變量之間不應(yīng)該有空格，而冒號和類型名之間要有一個空格。
//正確：
procedure Foo(Param1: Integer; Param2: Integer);

//錯誤：
procedure Foo( Param :Integer; Param2:Integer);
一個后續(xù)行不應(yīng)以一個二進(jìn)制操作符開始。避免在通常不出現(xiàn)空白的地方割斷一行，比如在方法名和它的左括號之間，或者在一個數(shù)組名和它的左方括號之間。如果你必須在上述情況下割斷行，那么應(yīng)當(dāng)在左括號或左方括號之后換行。不要把begin放在其它代碼的同一行。
例如：
//錯誤：

while (LongExpression1 or LongExpression2) do begin
//DoSomething
//DoSomethingElse;
end;

//正確

while (LongExpression1 or longExpression2) do
begin
//DoSomething
//DoSomethingElse;
end;

if (LongExpressiong1) or
(LongExpression2) or
(LongExpression3) then

5.0 注釋
Object Pascal語言支持兩種注釋：塊和單行注釋。以下是一些注釋用法原則：
·在單元頂部放置注釋用以解釋單元的用途是有益的
·在類聲明前放置注釋是有益的
·在方法聲明前設(shè)置注釋是有益的
·避免語句含義明顯的注釋
i := i + 1; //Add one to i
·記住，容易誤解的注釋比沒有注釋更加有害。
·避免在注釋里放入看上去要失效的信息
·避免在注釋的邊框里嵌入星號或其他的排版符號
·零時的注釋，即需要被改變或刪除的注釋，要在他們之前加上"???:"標(biāo)記，這樣易于查找。從觀念上來說，所有的零時注釋都應(yīng)當(dāng)在程序發(fā)布前刪除。
// ???: Change this to call Sort when it is fixed
List.MySort;

5.1 塊注釋
Object Pascal支持兩種類型的塊注釋。最常用的是一對花括號{}括起來的注釋。Delphi小組盡可能的保持該注釋少而簡單。例如：你應(yīng)當(dāng)避免在你的注釋里使用星號來創(chuàng)建圖案或行。相反，使用空格來分隔你的注釋，就象你在字處理文檔里做的一樣。你的注釋里的單詞應(yīng)當(dāng)在第一個花括號的同一行開始，就象下面從DsgnIntf.pas中摘錄的一樣：

{ TPropertyEditor
Edits a property of a component, or list of components,
selected into the Object Inspector. The property
editor is created based on the type of the
property being edited as deteRmined by the types
registered by...
etc...
GetXxxValue
Gets the value of the first property in the
Properties property. Calls the appropriate
TProperty GetXxxValue method to retrieve the
value.
SetXxxValue Sets the value of all the properties
in the Properties property. Calls the appropriate
TProperty SetXxxxValue methods to set the value. }
塊注釋通常被用在版權(quán)注釋中。也被用來注釋掉一些代碼行。
用于解釋方法的用途的塊注釋應(yīng)當(dāng)被訪在方法的聲明前面。
例如：
// CORRECT

{ TMyObject.MyMethod
This routine allows you to execute code. }

procedure TMyObject.MyMethod;
begin
end;

// INCORRECT

procedure TMyObject.MyMethod;
{******************************************************
TMyObject.MyMethod
This routine allows you to execute code.
*******************************************************}
begin
end;
第二種塊注釋包含了兩個字符，括號和星號：(* *)。這有時被稱為星括號注釋。這些注釋一般只在代碼開發(fā)時有用，它的主要好處是允許嵌套注釋，注釋嵌套少于兩層。Object Pascal不支持同類型的注釋嵌套，因此事實上只有一層嵌套：花括號在星括號里面，或者星括號在花括號里面。只要在你不嵌套它們時，在該類型的注釋中的其它類型的標(biāo)準(zhǔn)Pascal注釋將被忽略。因此，你可以使用該語法注釋一大塊既有代碼又有注釋的代碼：

(* procedure TForm1.Button1Click(Sender: TObject);

begin
DoThis; // Start the process
DoThat; // Continue iteration
{ We need a way to report errors here, perhaps using
a try finally block ??? }
CallMoreCode; // Finalize the process
end; *)

在本例中，整個Button1Click方法被注釋掉了，包括其中的任何子注釋。

5.2 單行注釋
單行注釋由注釋符//及其引導(dǎo)的文本組成，在文本和注釋符之間有一個空格。單行注釋同代碼在不同行的，要同代碼有相同的縮進(jìn)層次。你可以使用多個單行注釋形成大的注釋。
在單行注釋或注釋組之前要有一個空行，除非它是一個塊的第一行。如果注釋用于幾條語句，那么注釋和注釋組之后要跟一個空行。如果注釋僅解釋它后面的一行聲明，則不必跟一個空行。
例如：
// Open the database
Table1.Open;
單行注釋也可以跟在他們解釋的代碼聲明后面。這類注釋有時被引用為跟蹤注釋。在他們和代碼之間至少要有一個空格。如果有多個跟蹤注釋在一個代碼塊中同時出現(xiàn)，那么這些注釋需要被對齊。
例如：

if (not IsVisible) then
Exit; // nothing to do
Inc(StrLength); // reserve space for null terminator

要避免對每行可執(zhí)行代碼進(jìn)行跟蹤注釋。在一個方法或函數(shù)的begin..end塊之間限制使用注釋、甚至讓其為空，則在通常情況下是最好的。長的注釋可以出現(xiàn)在方法、函數(shù)的定義之前的塊注釋當(dāng)中。

類
6.1 類體的組織
類體的組織應(yīng)當(dāng)遵循下列順序：
·域／字段聲明
·方法聲明
·屬性定義
域／字段、屬性、方法應(yīng)當(dāng)按它們的名稱進(jìn)行字母索引排列。

贊一下

回復(fù)此樓

好好學(xué)習(xí)，天天向上。

2樓2010-12-02 16:31:30

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲 (著名寫手)

應(yīng)助: 65 (初中生)
貴賓: 0.003
金幣: 915.1
散金: 1440
紅花: 35
帖子: 2936
在線: 1329.4小時
蟲號: 664177
注冊: 2008-11-29
性別: GG
專業(yè): 理論和計算化學(xué)

引用回帖:

Originally posted by zyj8119 at 2010-12-02 16:31:30:

4.4 續(xù)行
行應(yīng)當(dāng)限制在80列以內(nèi)。超過80列的行應(yīng)當(dāng)被分成多個連續(xù)的行。所有的后續(xù)行應(yīng)當(dāng)排列在該聲明的第一行之后，并且縮進(jìn)兩個字符的空格。
例如：
//正確：

function CreateWindowEx(dwExSty ...

6.1.1 存取級別
除了由IDE生成的代碼，類的范圍指示符應(yīng)當(dāng)按以下順序：
·private 聲明
·protect聲明
·public聲明
·published聲明
在Object Pascal中，類成員有四種存取級別：發(fā)布的、公開的、受保護(hù)的和私有的--按存取能力遞減的順序排列。默認(rèn)的存取級別是published。一般，一個成員應(yīng)當(dāng)被賦予最合適它的最低的存取級別。例如：只能在同一單元中被其他類存取的成員就應(yīng)當(dāng)被聲明為私有的。同時，聲明低存取級別的成員也給了編譯器提高優(yōu)化的機(jī)會。當(dāng)然，另一方面，使用低存取級別對子類的擴(kuò)展造成了困難。如果有理由認(rèn)為某個類在將來某個時候會被子類化，那么應(yīng)當(dāng)將那些需要被子類繼承擴(kuò)展的成員聲明為受保護(hù)的，用于存取私有數(shù)據(jù)的屬性也可以提供這方面的保護(hù)。
你應(yīng)當(dāng)禁止對數(shù)據(jù)的公開存取。數(shù)據(jù)通常在private段聲明，任何對他的公開存取應(yīng)當(dāng)通過GetXXX、SetXXX方法或?qū)傩詠聿僮鳌?br /> 6.1.8 構(gòu)造函數(shù)聲明
方法需要按字母索引排列。將構(gòu)造函數(shù)和析構(gòu)函數(shù)放在public段的開始或按照字母索引排列都是正確的。
如果有多個構(gòu)造函數(shù)或你使用了多個相同的名字，那么應(yīng)當(dāng)根據(jù)形參列表來排列，參數(shù)少的在參數(shù)多的前面。這意味著如果存在沒有參數(shù)的構(gòu)造函數(shù)的話，那么它必定出現(xiàn)在第一個。為了和C++Builder保持最好的兼容，應(yīng)當(dāng)保證構(gòu)造函數(shù)的參數(shù)列表的唯一性。C++不是根據(jù)構(gòu)造函數(shù)的名稱來調(diào)用它的，所以區(qū)別多個構(gòu)造函數(shù)的唯一方法是通過它的參數(shù)列表。

6.2 方法聲明
如果可能，方法聲明要出現(xiàn)在單獨一行上。
例如：
Examples:

procedure ImageUpdate(Image img, infoflags: Integer,
x: Integer, y: Integer, w: Integer, h: Integer)

7.0 接口
接口的聲明與類的聲明有相同的形式：

InterfaceName = interface([inherited Interface])
InterfaceBody
end;

接口聲明應(yīng)當(dāng)被縮進(jìn)兩格，接口體縮進(jìn)四格，end結(jié)束符縮進(jìn)兩格。
在接口聲明中沒有域／字段。但屬性可以出現(xiàn)。
所有的接口方法天生就是公開的和抽象的，用不著在接口聲明中包含此類關(guān)鍵字。
除非有其他的注意事項，否則接口的聲明同類的聲明具有相同的風(fēng)格。

7.1 接口體組織
接口體的組織可以按以下的順序：
·接口方法聲明
·接口屬性聲明
接口方法和屬性的聲明和類具有相同的風(fēng)格。

8.0 聲明
聲明是由封號結(jié)尾的一行或幾行代碼。單一聲明只有一個封號，復(fù)合聲明中有多個封號。
//這是單一聲明：
A := B;

//這是復(fù)合聲明：

begin
B := C;
A := B;
end;

8.0.1 單一聲明
如果需要將一個單一聲明換行，則需要參照上一行縮進(jìn)兩格。
//例如：

MyValue :=
MyValue + (SomeVeryLongStatement / OtherLongStatement);

8.1.1 賦值和表達(dá)式聲明
每一行最多有一條聲明。
例如：

a := b + c; Inc(Count); //錯誤
a := b + c; //正確
Inc(Count); //正確

8.1.2 局部變量聲明
局部變量也使用駝峰格式，不要使用引導(dǎo)符"F"，這是為類聲明中域／字段保留的。
例如：

var
MyData: Integer;
MyString: string;

你可以在同一行聲明多個類型相同的變量：

var
ArraySize, ArrayCount: Integer;

這種聲明習(xí)慣在類聲明中是不提倡。

8.1.3 數(shù)組聲明
通�？偸窃谧蠓嚼ㄌ栔昂陀曳嚼ㄌ栔蠓胖靡粋€空格：

type
TMyArray = array [0..100] of Char;

8.2.3 if語句
if語句至少要以兩行的形式出現(xiàn)：
例如：
//錯誤:

if A = B then DoSomething;

//正確

if A = B then
DoSomething;

如果是復(fù)合的if語句，則應(yīng)當(dāng)每個分隔符一個新行：
//錯誤：

if A = B then begin
DoSomething;
DoSomethingElse;
end else begin
DoThis;
DoThat;
end;

//正確

if A = B then
begin
DoSomething;
DoSomethingElse;
end
else
begin
DoThis;
DoThat;
end;

以下的少數(shù)變化可以被采用：
//正確

if Condition then
begin
DoThis;
end else
begin
DoThat;
end;

//正確

if Condition then
begin
DoThis;
end
else
DoSomething;

//正確

if Condition then
begin
DoThis;
end else
DoSoemthing;

//下面的方式可能不被關(guān)心，但卻是值得贊揚的：

if Condition then
DoThis
else DoThat;

8.2.4 for語句
Example:
// INCORRECT

for i := 0 to 10 do begin
DoSomething;
DoSomethingElse;
end;

// CORRECT

for i := 0 to 10 do
begin
DoSomething;
DoSomethingElse;
end;

8.2.5 while 語句
Example:
// INCORRECT

while x < j do begin
DoSomething;
DoSomethingElse;
end;

// CORRECT

while x < j do
begin
DoSomething;
DoSomethingElse;
end;

8.2.6 repeat until 語句
Example:
// CORRECT

repeat
x := j;
j := UpdateValue;
until j = 25;

8.2.7 case 語句
Example:
// CORRECT

case Control.Align of
alLeft, alNone: NewRange := Max(NewRange, Position);
alRight: Inc(AlignMargin, Control.Width);
end;

// CORRECT

case x of
csStart:
begin
j := UpdateValue;
end;
csBegin: x := j;
csTimeOut:
begin
j := x;
x := UpdateValue;
end;
end;

// CORRECT

case ScrollCode of
SB_LINEUP, SB_LINEDOWN:
begin
Incr := FIncrement div FLineDiv;
FinalIncr := FIncrement mod FLineDiv;
Count := FLineDiv;
end;
SB_PAGEUP, SB_PAGEDOWN:
begin
Incr := FPageIncrement;
FinalIncr := Incr mod FPageDiv;
Incr := Incr div FPageDiv;
Count := FPageDiv;
end;
else
Count := 0;
Incr := 0;
FinalIncr := 0;
end;

8.2.8 try 語句

// Correct

try
try
EnumThreadWindows(CurrentThreadID, @Disable, 0);
Result := TaskWindowList;
except
EnableTaskWindows(TaskWindowList);
raise;
end;
finally
TaskWindowList := SaveWindowList;
TaskActiveWindow := SaveActiveWindow;
end;

贊一下

回復(fù)此樓

好好學(xué)習(xí)，天天向上。

3樓2010-12-02 16:32:00

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xiaoheihei366

至尊木蟲 (著名寫手)

應(yīng)助: 5 (幼兒園)
金幣: 11172.8
散金: 3
紅花: 6
帖子: 1384
在線: 199.1小時
蟲號: 484599
注冊: 2007-12-27
性別: GG
專業(yè): 分析儀器與試劑

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
dubo(金幣+1): 歡迎常來程序語言版討論 2011-06-06 15:22:06

謝謝，我也喜歡Delphi，謝謝分享。

贊一下(2人)

回復(fù)此樓

4樓2011-02-28 09:47:57

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
dubo(金幣+1): 歡迎常來程序語言版討論 2011-06-06 15:22:14

Borland 不是已經(jīng)不存在了嗎？

贊一下(2人)

回復(fù)此樓

5樓2011-02-28 16:41:56

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

dubo

金蟲 (著名寫手)

程序強(qiáng)帖: 4
應(yīng)助: 23 (小學(xué)生)
貴賓: 0.779
金幣: 569.2
散金: 3220
紅花: 31
沙發(fā): 1
帖子: 1821
在線: 349.5小時
蟲號: 559371
注冊: 2008-05-17
性別: GG
專業(yè): 高分子組裝與超分子結(jié)構(gòu)

LZ以后把它作為附件上傳吧

贊一下

回復(fù)此樓

6樓2011-06-06 15:22:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 zyj8119 的主題更新

返回列表

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 293求調(diào)劑 +6	zjl的號 2026-03-16	10/500	2026-03-17 13:45 by houyaoxu
[考研] 211本，11408一志愿中科院277分，曾在中科院自動化所實習(xí) +6	Losir 2026-03-12	7/350	2026-03-17 12:09 by danranxie
[考研] 材料專碩274一志愿陜西師范大學(xué)求調(diào)劑 +5	薛云鵬 2026-03-13	5/250	2026-03-17 10:15 by Sammy2
[考研] 0703化學(xué)336分求調(diào)劑 +3	zbzihdhd 2026-03-15	4/200	2026-03-16 23:52 by zbzihdhd
[考研] 材料專碩326求調(diào)劑 +5	墨煜姒莘 2026-03-15	5/250	2026-03-16 21:30 by 木瓜膏
[考研] 東南大學(xué)364求調(diào)劑 +5	JasonYuiui 2026-03-15	5/250	2026-03-16 21:28 by 木瓜膏
[考研] 梁成偉老師課題組歡迎你的加入 +8	一鴨鴨喲 2026-03-14	9/450	2026-03-16 17:35 by 沐霖12138
[考研] 283求調(diào)劑 +10	小樓。 2026-03-12	14/700	2026-03-16 16:08 by 13811244083
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +5	d如愿上岸 2026-03-12	8/400	2026-03-16 15:19 by peike
[考研] 285求調(diào)劑 +6	ytter 2026-03-12	6/300	2026-03-16 15:05 by njzyff
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7	膩膩gk 2026-03-14	7/350	2026-03-16 10:12 by houyaoxu
[考研] 330求調(diào)劑 +3	?醬給調(diào)劑跪了 2026-03-13	3/150	2026-03-14 10:13 by JourneyLucky
[考研] 一志愿中科院，化學(xué)方向，295求調(diào)劑 +4	一氧二氮 2026-03-11	4/200	2026-03-13 22:35 by JourneyLucky
[考研] 求材料調(diào)劑 +5	隔壁陳先生 2026-03-12	5/250	2026-03-13 22:03 by 星空星月
[考研] 工科，求調(diào)劑 +3	我887 2026-03-11	3/150	2026-03-13 21:39 by JourneyLucky
[考研] 310求調(diào)劑 +3	【上上簽】 2026-03-11	3/150	2026-03-13 16:16 by JourneyLucky
[考研] 289求調(diào)劑 +3	李政瑩 2026-03-12	3/150	2026-03-13 11:02 by 求調(diào)劑zz
[考研] 08食品或輕工求調(diào)劑，本科發(fā)表3篇sci一區(qū)top論文，一志愿南師大食品科學(xué)與工程 +3	我是一個兵， 2026-03-10	3/150	2026-03-13 10:21 by Yuyi.
[考研] 270求調(diào)劑 085600材料與化工專碩 +3	YXCT 2026-03-11	3/150	2026-03-13 10:13 by houyaoxu
[考研] 321求調(diào)劑（食品/專碩） +3	xc321 2026-03-12	6/300	2026-03-13 08:45 by xc321

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

zyj8119

[交流] 【轉(zhuǎn)帖】Delphi代碼的標(biāo)準(zhǔn)風(fēng)格 已有4人參與

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

zyj8119

zyj8119

xiaoheihei366

snoopyzhao

dubo

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[交流] 【轉(zhuǎn)帖】Delphi代碼的標(biāo)準(zhǔn)風(fēng)格已有4人參與

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: