www.九色在线,九色精品免费永久在线,精品国产电影

Delphi 5 寫碼標準

liaojiyong — Tue, 06 Feb 2007 07:15:00 GMT

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

3.5 型態

3.5.1 大小寫慣�?br />3.5.2 ��點數型�?br />3.5.3 列舉型態�Q�Enumerated Types�Q?br />3.5.4 Variant �?OleVariant 型態
3.5.5 �i�構型態

3.6 陌��句（statements�Q?
3.6.1 if 陌��?br />3.6.2 case 陌��?br />3.6.3 while 陌��?br />3.6.4 for 陌��?br />3.6.5 repeat 陌��?br />3.6.6 with 陌��?/p>

3.7 �i�構化異常處�?
3.7.1 try...finally
3.7.2 try...except

3.8 ��別�Q�classes�Q?/p>

3.8.1 命名/格式
3.8.2 �Ƅ位�Q�Fields�Q?br />3.8.3 �Ҏ�� Q�Methods�Q?/p>

命名/格式
靜態�Ҏ��Q�Static Methods�Q?
虛擬/動態�Ҏ��Q�Virtual/Dynamic Methods�Q?
抽象�Ҏ��Q�Abstract Methods�Q?
屬性存取方法（Property-Access Methods�Q?
3.8.4 屬性（Properties�Q?
4.0 檔案�Q�File�Q?br />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 一般單元結�?br />4.5.2 一般用途的單元
4.5.3 元�g單元

4.6 檔案表頭�Q�File Headers�Q?/p>

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 的函�?/p>

5.2 Data Modules

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

5.3 Remote Data Modules

6.0 套�g�Q�Packages�Q?br />6.1 埯��時期 v.s. �a�計時期套�g
6.2 檔案命名標準

7.0 元�g�Q�Components�Q?br />7.1 使用者自�a�元�?br />7.2 元�g實體命名慣例

7.2.1 元�g型態字首�Q�Component Type Prefixes�Q?br />7.2.2 元�g修飾詞名�E�（Component Qualifier Name�Q?/p>

8.0 補充說明

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

1.0 ��介
這䆾文�g修改�?Delphi 5 Developer's Guide 裡面�?coding standards�Q�該文所��的寫��風��D�� Borland 大致相同�Q�我在編寫這䆾文�g時也做了微幅的修改，刪除一些不斷重複的字句�Q�例如，「某某名�E�在命名時應該與它的目的相符」這類一般性的原則�Q�只要是「命名」，不管是專案名�E�，檔案名稱�Q�元�Ӟ��函式�Q�變�?...都應該取有意��的名稱�?/p>

這䆾文�g不可能照��到所有細��Q�但是比較重要的部分都提��C��Q�另外一��?"Delphi 5 元�g型態字首" 則包含了元�g命名的字首徏議清單，應該也有參考價倹{�?/p>

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

DelForExp - 可以�q�你重新�R�排 Delphi �E�式��{�?/p>

GExperts - 包含�a�多提高 Delphi 生產力的工具�Q�其�?Code Proofreader 能夠自動�q�你修正�E�式��的大小寫失誤�?/p>

2.0 一般程式碼格式
2.1.�^�格
每層的縮格為兩個空白字元，不要使用 Tab 字元�Q�Tools | Editor options 裡面�?Use tab character 達R��不要��N��Q�，以免�E�式��到了別台機器或用其他文字編輯器��示、列印時��C��樣�?/p>

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

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

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

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

當然�Q�else 之後�?begin 要寫在新的一行也可以�?/p>

〔回目錄�?/p>

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

3.0 Object Pascal
3.1.括號
左括號的右邊和右括號的左邊不應該有空白，參考下面的例子�Q?/p>

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

3.3 �E�序與函�?br />3.3.1 命名/格式
函式名稱�W�一個英文字母應該大寫，其後使用 Camel-capped 格式以便於閱讀。以下是錯誤�C�範�Q?/p>

procedure thisisapoorlyformattedroutinename;

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

procedure ThisIsMuchMoreReadableRoutineName;

函式名稱應該要能代表它的功能�Q�讓��夠不看內部細��q��道該函式大概在做什麹{��當函式埯��了某項動作，我們通常會以一個動詞為首來命名�Q�例如：

procedure FormatHardDrive;

�a�定某個變數值的函式應該�?Set 為字首：

procedure SetUserName;

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

procedure GetUserName: string;

3.3.2 形式參數
格式
相同型態的參數應該合併在一個語句中�Q?/p>

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

命名
參數名稱應該�W�合它們所代表的意��。參數名�E�可以在前面加上大寫字母 'A'�Q?/p>

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

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

參數順序
以下��於參數順序的徏議在使用「暫存器呼叫慣例」時特別有幫助（在效能上�Q��?/p>

最常用的參數擺在第一位，較少用的參數依左臛_��的順序排列�?
作為輸入的參數放左邊�Q�作��出的參數攑֏�邊�?
��比較一般性的參數攑֜�左邊�Q�比較特�D�的攑֏�邊，例如�Q?
procedure SomeProc(APlanet, AContinent, ACountry, AState, ACity);

以上關於參數排列的徏議可能會有許多例外情形，例如事�g處理函式�Q�它�^�是會以 Sender 最為第一個參數�?/p>

常數參數
如果參數��g��會被函式修改�Q�應該在參數前面冠上 const�Q�特別是以下這些型態�Q�record, array, ShortString, interface�?/p>

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

SysUtils.FindClose(SR);

�?/p>

Windows.FindClose(Handle);

3.4 變數
3.4.1 變數命名與格�?br />變數名稱應和它們的目的相符�?br />�q�圈控制變數通常�?i, j ,k 來命名，當然你也可以用像�?UserIndex 之類有意��的名稱�?br />布林變數的名�E�應該要能充分表�?True �?False 的意思�?/p>

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

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

3.4.3 全域變數
你應該盡量避免��用全域變數，當你真的需要時才��用全域變數，而且盡量在一個單元的��圍內��用，如果一個全域變數會被多個單元��用，你應該將它移��C��個共用的單元內�?/p>

〔回目錄�?/p>

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

3.5 型態
3.5.1 大小寫慣�?br />如果型態的名�E�屬��g��留字�Q�就全部��寫。Win32 API 的型態則全用大寫�Q�一些比較特�D�的型態�Q�你應該遵��@ Windows.pas 或其�?API 單元裡面的寫法。至於其他的型態�Q�通常是名�E�q��W�一個字母大寫，光��採用 Camel-capped 方式�Q�參考以下範例：

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

3.5.2 ��點數型�?br />不要使用 Real 型態�Q�它是為了相�Ҏ��舊的 pascal �E�式而保留的。一般��用��Q點數時，請��?double 型態�Q�它�?IEEE 定義的標準資料格式。如果需要更大範圍的數��|��可��?Extended�Q�但它是屬於 Intel 規格�Q�而且 Java 不支援。只有當��點數實�t�佔用的位於�i�大��有意義時才使用 Single�Q�例如��用另一�E�語�a�寫成�?DLL 時）�?/p>

3.5.3 列舉型態�Q�Enumerated Types�Q?br />列舉型態的名�E�必須以字母 'T' 開頭�Q�藉此突��它是一個型態。列舉型態中的識別字名稱應該�?2�? 個和其型態相關的��寫英文字母開頭�Q�例如：

TSongType = (stRock, stClassical, stCountry, stAlternative, stHeavyMetal, stRB);
列舉型態的變數名�E�可以直接將型態的第一個字�?'T' 拿掉來命名，或是其他��h��Ҏ��意義的名�E�，例如�Q�FavoriteSongType1, FavoriteSongType2�?/p>

3.5.4 Variant �?OleVariant 型態
通常不徏��C��用這兩�E�型態，它們通常被��用在只有埯��時期才能��定其型態的時候，例如 COM 和資料��n�E�式�a�計。你應該只有在撰�?COM 盔R��E�式的時候才使用 OleVariant�Q�因�?Variant 可以有效率地儲存 Delphi 字串�Q��?OleVariant 則必須將所有字串轉換成 OLE 字串�Q�WideChar 字串�Q�，而且不會被參考計數－�Q�它們總是被複製成新的字丌Ӏ?/p>

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

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

�a�錄型態
和陣列型態的規則一樣，參考下面的��例�Q?/p>

type
PEmployee = ^TEmployee;
TEmployee = record
EmployeeName: string
EmployeeRate: Double;
end;
〔回目錄�?/p>

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

3.6 陌��?br />3.6.1 if 陌��?br />比較常發生的情�Ş應該攑֜� if/then/else 裡面�?then 字句中，較少發生的情形則攑֜� else 字句裡面�?
避免使用一長串�?if 敘述�Q�如果可能的話，使用 case 來取代�?
巢狀 if 不應該超過四層。當巢狀 if ��過四層時，你應該想辦法以更��明的方式來撰寫這段�E�式��|��例如��部分判斷式寫成獨立函式�Q��?
不要�?if 敘述中��用不必要的括號�?
3.6.2 case 陌��?br />case 裡面的各個條件應該以數字或英文字母的順序排列�?
各個條件的處理動作應盡量簡短，通常以不��過五行�E�式��為限，如果要處理的動作太複雜的話，應該寫成獨立的函式�?
else 子句只有畉��要預�a�行為或者偵測錯誤時才��用�?
3.6.3 while 陌��?br />不徏議在 while 中��?Exit 跳離�q�圈�Q�儘可能只��用條件式�?break 命��o�?
�i?while �q�圈使用的變數的初始化動作應該要�R�鄰在進入�q�圈之前�Q�其間不要有��M��不相�q�的�E�式��{�?
��M��後續處理應在�q�圈後立即進行�?
3.6.4 for 陌��?br />3.6.5 repeat 陌��?br />3.6.6 with 陌��?br />〔回目錄�?/p>

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

3.7 �i�構化異常處理（Structured Exception Handling�Q?br />異常處理常被用於捕捉錯誤和資源回�Ӟ��例如�Q�假�a�你你配�|�了一項資源，你可以在 finally 子句撰寫釋放資源的程式碼以確保資源會被釋放�?/p>

3.7.1 try...finally
在不需要理會錯誤的情�Ş下，可以使用此敘�q�C��Z��資源被回�Ӟ��但是每一個配�|�資源的動作都應該對應一�?try...finally 敘述�Q�以下的�E�式��可能會引發問題�Q?/p>

SomeClass1 := TSomeClass.Create;
SomeClass2 := TSomeClass.Create;
try
{do some code }
finally
SomeClass1.Free;
SomeClass2.Free;
end;
比較安全的寫法應該是�Q?/p>

SomeClass1 := TSomeClass.Create;
try
SomeClass2 := TSomeClass.Create;
try
{do some code }
finally
SomeClass2.Free;
end;
finally
SomeClass1.Free;
end;
3.7.2 try...except
你可以用此敘�q�C��捕捉異常並進行��外的處理。一般來說，你不會只��Z��示錯誤�a�息而��?try...except�Q�因�?Application 物�g會自動幫你顯�C�錯誤訊息。如果你�?except 裡面處理完該做的事情之後惌��再將錯誤傛_��去，可以使用 raise 指��o�?/p>

〔回目錄�?/p>

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

3.8 ��別�Q�classes�Q?br />3.8.1 命名/格式
��別的型態名�E׃��大寫 'T' 開頭�Q�例如：

type
TCustomer = class(TObject)
��別實體的名�E�可以直接將前面�?'T' ��L��Q?/p>

var
Customer: TCustomer;
�a�：元�g的命名規則請參考「元件」章��?/p>

3.8.2 �Ƅ位�Q�Fields�Q?br />��別中的�Ƅ位�Q�指的就是私有成員（private members�Q�，他們的命名規則和一般的變數相同�Q�但是必須在前面冠上大寫 'F' �Q�表�C�Z��們是 fields�?
3.8.3 �Ҏ��Q�Methods�Q?br />命名/格式
Methods 的命名規則和一般函式相同�?/p>

靜態�Ҏ��Q�Static Methods�Q?
當你不希望某�?method 被子��別改寫�Q�override�Q�的話，可以��它宣告為靜態方法�?/p>

虛擬/動態�Ҏ��Q�Virtual/Dynamic Methods�Q?
當你預期某�?method 會被子類別改寫的話，應將它宣告為 virtual。�?dynamic 的��用時��是當一個類別有很多子類別的時候，例如一個類別有 100 個子��別�Q�而這些子類別都會用到某�?method�Q�但是很��會��L��寫它�Q�那這�?method ��應該被宣告�?dynamic 以節省記憉��?/p>

�a�：每一個類別的 virtual methods 需要以一個虛擬方法表�Q�VMT, Virtual Method Table�Q�來�a�錄�?/p>

抽象�Ҏ��Q�Abstract Methods�Q?
抽象�Ҏ��應該只被用於抽象��別中，它們主要是用來定義基礎��別的介面�?/p>

屬性存取方法（Property-Access Methods�Q?
存取屬性的�Ҏ��是你經常在元�g的原始碼中看到的 Get/Set �Ҏ��Q�它們各自對應到屬性的讀取和寫入動作�Q�寫入的�Ҏ��名稱是以 Set 開頭�Q�參數值的名稱通常�?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 區�D�中�?/p>

3.8.4 屬性（Properties�Q?br />屬性可以讓外界存取��別的私有成員，其命名方式是��私有成員名�E�前面的 'F' ��L��。由於屬性代表的是資料，所以名�E�應該是名詞而非動詞�?/p>

通常屬性是單數�Q�如果是陣列型態的屬性，其名�E�應該��用複數�?/p>

〔回目錄�?/p>

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

4.0 檔案
4.1 Project Files
��案名稱應該要能描述其功能，例如�Q�The Delphi 5 Developer's Guide �?Bug Manager 的專案名�E�就取名�?DDGBugs.dpr�?/p>

4.2 Form Files
Form 的檔案名�E׃�� Frm 作結��，例如�Q�AboutFrm.pas。主視窗通常會以 MainFrm.pas 命名�?/p>

4.3 Data Module Files
Data Module 的檔案名�E׃�� DM 作結��，例如�Q�CustomerDM.pas �?CustomerDm.pas�?/p>

4.4 Remote Data Module Files
Remote Data Module 的檔案名�E׃�� RDM 作結��，例如�Q�CustomerRDM.pas �?CustomerRdm.pas�?/p>

�a�：MTSDataModule 也是 Remote Data Module 的一�E�，因此可以使用相同的命名方式�?/p>

4.5 Unit Files
4.5.1 一般單元結�?br />uses 子句
�?interface 區�D늚� uses 子句應該只包�?interface 會用到的單元�Q�在 implementation 區�D늚� uses 子句應該只包�?implementation 會用到的單元�Q�沒有用到的單元應該��其�U�除�?/p>

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

implementation 區�D?
此區�D�|��宣告的型態，變數�Q�函式等都只能被此單元��用�?/p>

initialization 區�D?
不要把很花時間的工作攑֜�此區�D�中�Q�否則會拖慢應用�E�式載入的時間�?/p>

finalization 區�D?
�?initialization 區�D�中配置的資源必須在此處釋放�?/p>

4.5.2 一般用途的單元
例如�Q�一個工具類的單元可能被命名�?BugUtilities.pas�Q�或 BugUtils.pas�Q�，而一個專門存放全域變數的單元可能叫�?AppGlobals.pas�?/p>

�a�住這類��q��單元可能被專案中所有的�E�式單元及套件��用，��Z��避免名稱衝突�Q�在為檔案命名時不要用太普遍的名�E��?/p>

4.5.3 元�g單元
元�g單元應該要被集中存放在一個獨立的目錄�Q�不應該攑֜��案目錄下跟其他檔案混在一赗��?/p>

4.6 檔案表頭�Q�File Headers�Q?br />檔案表頭通常提供了檔案的用途，版權宣告�Q�作者，注意事項...�{�資�a�。你可以採用��似下面的寫法：

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

��要說明此檔案的用途�?/p>

注意事項

版權宣告

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

〔回目錄�?/p>

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

5.0 Forms and Data Modules
5.1 Forms
5.1.1 Form 型態命名標準
�?TXxxxForm 的方式命名，例如�Q?/p>

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

TMainForm = class(TForm)
輸入客戶基本資料的表單可能像這樣�Q?/p>

TCustomerEntryForm = class(TForm)
5.1.2 Form 實體命名標準
��型態名�E�前面的 'T' ��L��作為 Form 的實體名�E�，參考下面的��例�Q?/p>

型態名稱
實體名稱

TAboutForm AboutForm
TMainForm MainForm
TCustomerEntryForm CustomerEntryForm

5.1.3 自動建立�?Forms
只有主視�H�才應該被自動徏立，除非有特�D�的原因�Q�否則其他視�H�都應該以動態的方式建立�?/p>

5.1.4 建立 Modal Form 的函�?br />當你要��用一�?Form 時，不要�?Delphi �q�你產生�?Form 變數�Q�應該以一個函式來建立及顯�C�這�?Form�Q�參考下面的��例�Q?/p>

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 的方式命名，例如�Q?/p>

TCustomerDmod = class(TDataModule)
5.2.2 Data Module 實體命名標準
��型態名�E�前面的 'T' ��L��作為 Data Module 的實體名�E�，例如�Q?/p>

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

var
CustomerRmod: TCustomerRdmod;
〔回目錄�?/p>

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

6.0 套�g�Q�Packages�Q?br />6.1 埯��時期 v.s. �a�計時期套�g
埯��時期套�g應該只包含其中各元�g所需參考的單元或套�Ӟ��其他只有在設�a�時期才會用到的�E�式��或單元�Q�例如屬�?元�g�R�輯器等�Q�就應該攑֜��a�計時期套�g裡，此外�Q�用來註冊元件的單元也應該放在設�a�時期套件裡�?/p>

6.2 檔案命名標準
套�g的檔案名�E�名應該仿照以下的例子：

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

假設某個套件同時有�a�計時期和執行時期兩�E�套�Ӟ��他們會有相似的檔案�Q�例�?Delphi 5 Developer's Guide 的套件會命名為：

DdgLib50.dpk�Q�設�a�時期套�Ӟ��
DdgStd50.dpk�Q�執行時期套�Ӟ��
〔回目錄�?/p>

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

7.0 元�g�Q�Components�Q?br />7.1 使用者自�a�元�?br />7.1.1 元�g型態命名標準
元�g的命名方式和之前「類別」一��當中提到的命名方式類��|��差別僅在於元件名�E�前面會冠上三個字元以作為識別�Q�這三個前�|�字元可以是你個�h、公司、或��M��個體的名�E�q��寫，例如�Q�在 Delphi 5 Developer's Guide 裡面有一個時鐘元�Ӟ��他的定義是：

TddgClock = class(TComponent)

注意這三個前�|�字元都是小寫英文字母�?/p>

7.1.2 元�g單元
元�g所屬的單元裡面應該��只包含一個主元�g�Q�所��「主元�g」就是指那些會放�?Delphi 元�g盤上面的元�g�Q�其他輔助性質的元件則可以跟主元�g攑֜�同一個單元裡面�?/p>

7.1.3 使用�a�d��單元
用來�a�d��元�g的程序應該被抽離��Z��Q�並集中��C��個獨立的檔案當中�Q�這個專門用來�a�d��元�g的單元同時也可以用來�a�d��屬性編輯器�Q�元件編輯器�Q�專�Ӟ��Delphi experts�Q?...�{�等�?/p>

由於�a�d��元�g的動作只有在�a�計時期套�g中才會執行，因此�a�d��單元應該只被攑֜��a�計時期套�g裡，而不會出珑֜�埯��時期套�g裡。註冊單元的檔案名稱��您以下列型式命名�Q?/p>

XxxReg.pas

其中 Xxx 表示用來作為識別的三個字元，可能是你的姓名，公司名稱�Q�或是其他個體的縮寫。例如，�?Delphi 5 Developer's Guide 裡面用來�a�d��元�g的單元其檔名��是 DdgReg.pas�?/p>

7.2 元�g實體命名慣例
元�g的命名採用類伹{��匈牙利表示法」的命名慣例�Q�元件的名稱分為「元件型態字首」以及「元件修飑֐��E�」兩個部分�?/p>

7.2.1 元�g型態字首�Q�Component Type Prefixes�Q?br />所��「元件型態字首」，��是一�i�代表元件型態的英文��寫字母�Q�例如，TButton 的型態字首為 btn�Q�TEdit 的型態字首為 edt。你可以依照下列的步驟挑選出合適的字首：

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

7.2.2 元�g修飾詞名�E�（Component Qualifier Name�Q?br />元�g修飾詞名�E�應該要�W�合其作用，例如�Q�一個用來關閉視�H�的按鈕應該被命名為 "btnClose"�Q��入員工姓名的文字盒應被命名為 edtEmpName�?/p>

liaojiyong 2007-02-06 15:15 发表评论

liaojiyong — Tue, 06 Feb 2007 07:12:00 GMT

名稱                        ��型         說明
----------------------------------------------------------------------------------
Abort                       函數         引�v放棄的意外處�?
Abs                         函數         �i�對值函�?
AddExitProc                 函數         ��一過程��d��到運行時庫的�i�束過程表中
Addr                        函數         �q�回指定��象的地址
AdjustLineBreaks            函數         ��定字�W�串的行分隔�W�調整為CR/LF序列
Align                       屬性       �?使控件位於窗口某部分
Alignment                   屬性       �?控�g標籤的文字位�|?
AllocMem                    函數         在堆��上分配�i�定大小的塊
AllowGrayed                 屬性       �?允許一個灰度選�?
AnsiCompareStr              函數         比較字符�Ԍ��區分大��寫�Q?
AnsiCompareText             函數         比較字符�Ԍ��不區分大��寫�Q?
AnsiLowerCase               函數         ��字�W�轉換為��寫
AnsiUpperCase               函數         ��字�W�轉換為大寫
Append                      函數         以附加的方式打開已有的文�?
ArcTan                      函數         余切函數
AssignFile                  函數         �i�文件變量��c一外部文�g�?
Assigned                    函數         測試函數或過�E�變量是否為�I?
AutoSize                    屬性       �?自動控制標籤的大��?
BackgroundColor             屬性       �?背景�?
BeginThread                 函數         以適當的方式建立用於內存��理的線�E?
BevelInner                  屬性       �?控�g�Ҏ��的內框方�?
BevelOuter                  屬性       �?控�g�Ҏ��的外框方�?
BevelWidth                  屬性       �?控�g�Ҏ��的外框寬�?
BlockRead                   函數         讀一個或多個記錄到變量�?
BlockWrite                  函數         從變量中寫一個或多個記�?
BorderStyle                 屬性       �?邊界��型
BorderWidth                 屬性       �?邊界寬度
Break                       命��o         �i�止for、while、repeat循環語句
Brush                       屬性       �?畫刷
Caption                     屬性       �?標籤文字的內�?
ChangeFileExt               函數         改變文�g的後�E?
ChDir                       函數         改變當前目錄
Checked                     屬性       �?��定復選框選中狀�?
Chr                         函數         �q�回指定序數的字�W?
CloseFile                   命��o         關閉打開的文�?
Color                       屬性       �?標籤的顏�?
Columns                     屬性       �?��示的列�?
CompareStr                  函數         比較字符�Ԍ��區分大��寫�Q?
Concat                      函數         合併字符�?
Continue                    命��o         �J�續for、while、repeat的下一個��@�?
Copy                        函數         �q�回一字符串的子串
Cos                         函數         余��u函數
Ctl3D                       屬性       �?是否��h��3D效果
Cursor                      屬性       �?鼠標指針�U�d��後的形狀
Date                        函數         �q�回當前的日�?
DateTimeToFileDate          函數         ��DELPHI的日期格式轉換為DOS的日期格�?
DateTimeToStr               函數         ��日期時間格式轉換為字符�?
DateTimeToString            函數         ��日期時間格式轉換為字符�?
DateToStr                   函數         ��日期格式轉換為字符�?
DayOfWeek                   函數         �q�回星期的數�?
Dec                         函數         遞減變量�?
DecodeDate                  函數         ��日期格式分解為�q�月�?
DecodeTime                  函數         ��時間格式分解為時、分、秒、毫�U?
Delete                      函數         從字�W�串中刪除子�?
DeleteFile                  命��o         刪除文�g
DiskFree                    函數         �q�回剩餘��盤�I�間的大��?
DiskSize                    函數         �q�回指定��盤的容�?
Dispose                     函數         釋放動態變量所佔的�I�間
DisposeStr                  函數         釋放字符串在堆棧中的內存�I�間
DitherBackground            屬性       �?使背景色的色彩加重或減少50%
DragCursor                  屬性       �?畉��標按下時光標的�Ş狀
DragMode                    屬性       �?按動的作用方�?
DropDownCount               屬性       �?容許的顯�C�數據項的數�?
EditMask                    屬性       �?�R�輯模式
Enabled                     屬性       �?是否使標�c�呈現打開狀�?
EncodeDate                  函數         ��年月日合成為日期格�?
EncodeTime                  函數         ��時、分、秒、毫�U�合成為時間格式
EndMargin                   屬性       �?末尾邊��P
Eof                         函數         ��有��型或無��型文�g測試是否到文件尾
Eoln                        函數         �q�回文本文�g的行�i�束狀�?
Erase                       命��o         刪除外部文�g
ExceptAddr                  函數         �q�回引�v當前意外的地址
Exclude                     函數         從集合中刪除一些元�?
ExceptObject                函數         �q�回當前意外的烦�?
Exit                        命��o         立即從當前的語句塊中退�?
Exp                         函數         指數函數
ExpandFileName              函數         �q�回包含�i�對路徑的字�W�串
ExtendedSelect              屬性       �?是否允許存在選擇模式�Q�True時，MultiSelect才有意義
ExtractFileDir              函數         �q�回驅動器和路徑
ExtractFileExt              函數         �q�回文�g的後�E?
ExtractFileName             函數         �q�回文�g�?
ExtractFilePath             函數         �q�回指定文�g的�\�?
FileAge                     函數         �q�回文�g已存在的時間
FileClose                   命��o         關閉指定的文�?
FileCreate                  命��o         用指定的文�g名徏立新文�g
FileDateToDateTime          函數         ��DOS的日期格式轉換為DELPHI的日期格�?
FileExists                  函數         檢查文�g是否存在
FileGatAttr                 函數         �q�回文�g的屬�?
FileGetDate                 函數         �q�回文�g的DOS日期時間標記
FileOpen                    命��o         用指定的存取模式打開指定的文�?
FilePos                     函數         �q�回文�g的當前指針位�|?
FileRead                    命��o         從指定的文�g讀�?
FileSearch                  命��o         在目錄中搜烦指定的文�?
FileSeek                    函數         改變文�g的指�?
FileSetAttr                 函數         �a�置文�g屬�?
FileSetDate                 函數         �a�置文�g的DOS日期時間標記
FileSize                    函數         �q�回當前文�g的大��?
FileWrite                   函數         ��指定的文�g做寫操作
FillChar                    函數         用指定的值填充連續字節的數
FindClose                   命��o         �i�止FindFirst/FindNext序列
FindFirst                   命��o         ��指定的文�g名及屬性搜索目�?
FindNext                    命��o         �q�回與文件名及屬性匹配的下一入口
FloatToDecimal              函數         ��Q點數轉換為十進制�?
FloatToStrF                 函數         ��Q點數轉換為字�W�串
FloatToStr                  函數         ��Q點數轉換為字�W�串
FloatToText                 函數         ��定的��點數轉換為十進制�?
FloatToTextFmt              函數         ��定的��點數轉換為十進制�?
Flush                       函數         ��m衝區的內容刷新到輸出的文本文件中
FmtLoadStr                  函數         從程序的資源字符串表中裝載字�W�串
FmtStr                      函數         格式化一�p�d��的參數，其結果以參數Result�q�回
Font                        屬性       �?�a�置字體
Format                      函數         格式化一�p�d��的參�怸��q�回Pascal字符�?
FormatBuf                   函數         格式化一�p�d��的參�?
FormatDateTime              函數         用指定的格式來格式化日期和時�?
FormatFloat                 函數         指定��點數格�?
Frac                        函數         �q�回參數的小敔R��?
FreeMem                     函數         按��定大��釋攑֋�態變量所佔的�I�間
GetDir                                   �q�回指定驅動器的當前目錄
GetHeapStatus                            �q�回內存��理器的當前狀�?
GetMem                                   建立一指定大小的動態變量，並將指針指向該處
GetMemoryManager                         �q�回內存��理器的入口�?
Glyph                       函數         按鈕上的圖像
Halt                                     停止�E�序的執行並�q�回到操作系�i?
Hi                                       �q�回參數的高地址�?
High                                     �q�回參數的上限�?
Hint                        屬性       �?提示信息
Int                                      �q�回參數的整敔R��?
Include                                  ��d��元素到集合中
Insert                                   在字�W�串中插入子�?
IntToHex                                 ��整型數轉換為十六進制�?
IntToStr                                 ��整型數轉換為字�W�串
IOResult                                 �q�回最新的I/O操作完成狀�?
IsValidIdent                             測試字符串是否為有效的標識符
Items                       屬性       �?默認��示的節�?
Kind                        屬性       �?擺放樣式
LargeChange                 屬性       �?最大改變�?
Layout                      屬性       �?圖像佈局
Length                      函數         �q�回字符串的動態長度
Lines                       屬性       �?�~�省��示內容
Ln                          函數         自然��數函數
Lo                          函數         �q�回參數的低地址�?
LoadStr                     函數         從應用程序的可執行文件中裝載字符資源
LowerCase                   函數         ��定的字符串變為小�?
Low                         函數         �q�回參數的下限�?
Max                         屬性       �?最大�?
MaxLength                   屬性       �?最大長�?
Min                         屬性       �?最��?
MkDir                       命��o         建立一子目�?
Move                        函數         從源到目標複製字��
MultiSelect                 屬性       �?允許同時選擇�q�ր�數據項
Name                        屬性       �?控�g的名�?
New                         函數         建立新的動態變量並設�|�一指針變量指向�?
NewStr                      函數         在堆��上分配新的字符�?
Now                         函數         �q�回當前的日期和時間
Odd                                      測試參數是否為奇�?
OnActivate                  事�g         焦點�U�d��H�體上時觸發
OnClick                     事�g         單擊�H�體�I�白區域觸�?
OnDblClick                  事�g         雙擊�H�體�I�白區域觸�?
OnCloseQuery                事�g         使用者試圖關閉窗體觸�?
OnClose                     事�g         �H�體關閉後才觸發
OnCreate                    事�g         �H�體�W�一�ơ創建時觸發
OnDeactivate                事�g         用戶切換到另一應用�E�序觸發
OnDragDrop                  事�g         鼠標拖放操作�i�束時觸�?
OnDragOver                  事�g         有其他控件從他上面移過觸�?
OnMouseDown                 事�g         按下鼠標鍉|��觸發
OnMouseUp                   事�g         釋放鼠標鍉|��觸發
OnMouseMove                 事�g         �U�d��鼠標時觸�?
OnHide                      事�g         ��p��H�體時觸�?
OnKeyDown                   事�g         按下�늛�某鍵時觸�?
OnKeyPress                  事�g         按下�늛�上的單個字�W�鍵時觸�?
OnKeyUp                     事�g         釋放�늛�上的某鍵時觸�?
OnPaint                     事�g         �H�體上有新部分暴露出來觸�?
OnResize                    事�g         重新調整�H�體大小觸發
OnShow                      事�g         在窗體實際顯�C�Z��前瞬間觸�?
Ord                                      �q�回序數��的序數
OutlineStyle                屬性       �?��型
OutOfMemoryError                         引�vOutOfMemory意外
PageIndex                   屬性       �?頁烦�?
Pages                       屬性       �?�?
ParamCount                  函數         �q�回在命令行上傳遞��E�序的參數數�?
ParamStr                    函數         �q�回指定的命令行參數
Pen                         屬性       �?畫刷�a�置
Pi                          函數         �q�回圓周率Pi
Picture                     屬性       �?��示圖像
PictureClosed               屬性       �?�a�置Closed位圖
PictureLeaf                 屬性       �?�a�置Leaf位圖
PictureMinus                屬性       �?�a�置Minus位圖
PictureOpen                 屬性       �?�a�置Open位圖
PicturePlus                 屬性       �?�a�置Plus位圖
Pos                         函數         在字�W�串中搜索子�?
Pred                        函數         �q�回先前的參�?
Random                      函數         �q�回一隨機函數
Randomize                   函數         用一隨機數初始化內置的隨��數生成�?
Read                        函數         ��有格式的文�Ӟ��讀一文�g�i��g到變量中�Q?br />                                         ��文本文�Ӟ��讀一個或多個值到一個或多個變量中
Readln                      函數         埯��Read過程�Q�然後蟩到文件下一�?
ReadOnly                    屬性       �?只讀屬�?
ReAllocMem                  函數         分配一動態變量
Rename                      函數         重命名外部文�?
RenameFile                  函數         ��文仉��命名
Reset                       函數         打開已有的文�?
Rewrite                     函數         建立並打開一新的文�g
RmDir                       函數         刪除�I�的子目�?
Round                       函數         ��實數值捨入為整型�?
RunError                    函數         停止�E�序的執�?
ScrollBars                  屬性       �?滑֋�條狀�?
Seek                        函數         ��文件的當前指針�U�d��到指定的�i��g�?
SeekEof                     函數         �q�回文�g的文件結束狀�?
SeekEoln                    函數         �q�回文�g的行�i�束狀�?
SelectedColor               屬性       �?�怸��色
SetMemoryManager            函數         �a�置內存��理器的入口�?
SetTextBuf                  函數         �i�文本文件指定I/O�R�衝區
Shape                       屬性       �?��示的�Ş狀
ShowException               函數         ��示意外消息與地址
Sin                         函數         正��u函數
SizeOf                      函數         �q�回參數所佔的字節�?
SmallChange                 屬性       �?最��改變�?
Sorted                      屬性       �?是否允許排序
Sqr                         函數         �q�x��函數
Sqrt                        函數         �q�x��根函�?
StartMargin                 屬性       �?開始邊��P
State                       屬性       �?控�g當前狀�?
Str                         函數         ��數��D��換為字符�?br />StrAlloc                    函數         �i�以NULL�i�束的字�W�串分配最大長�?1的�m衝區
StrBufSize                  函數         �q�回存儲在由StrAlloc分配的字�W��m衝區的最大字�W�數
StrCat                      函數         ��一字符串附加到另一字符串尾並返回合�늚�字符�?
StrComp                     函數         比較兩個字�W�串
StrCopy                     函數         ��一個字�W�串複製到另一個字�W�串�?
StrDispose                  函數         釋放堆棧上的字符�?
StrECopy                    函數         ��一字符串複製到另一個字�W�串並返回結果字�W�串��N��的指�?
StrEnd                      函數         �q�回指向字符串尾部的指針
Stretch                     屬性       �?自動適應控�g的大��?
StrFmt                      函數         格式化一�p�d��的參�?
StrIComp                    函數         比較兩個字�W�串�Q�不區分大��寫�Q?
StringToWideChar            函數         ��ANSI字符串轉換為UNICODE字符�?
StrLCat                     函數         ��一字符串中的字�W�附加到另一字符串尾並返回合�늚�字符�?
StrLComp                    函數         以最大長度比較兩個字�W�串
StrLCopy                    函數         ��一個字�W�串中的字符複製到另一個字�W�串�?
StrLen                      函數         �q�回字符串中的字�W�數
StrLFmt                     函數         格式化一�p�d��的參數，其結果中包含有指向目標�m衝區的指�?
StrLIComp                   函數         以最大長度比較兩個字�W�串�Q�不區分大��寫�Q?
StrLower                    函數         ��字�W�串中的字符轉換為小�?
StrMove                     函數         ��一個字�W�串中的字符複製到另一個字�W�串�?
StrNew                      函數         在堆��上分配一個字�W�串
StrPas                      函數         ��以NULL�i�束的字�W�串轉換為PASCAL��的字符�?
StrPCopy                    函數         ��PASCAL��的字符串複製為以NULL�i�束的字�W�串
StrPLCopy                   函數         從PASCAL��的最大長度字�W�串複製��Z��NULL�i�束的字�W�串
StrPos                      函數         �q�回一個字�W�串在另一個字�W�串中首�ơ出現指�?
StrRScan                    函數         �q�回字符串中最後出珑֭��W�的指針
StrScan                     函數         �q�回字符串中出現首字�W�的指針
StrToDate                   函數         ��字�W�串轉換為日期格�?
StrToDateTime               函數         ��字�W�串轉換為日�?時間格式
StrToFloat                  函數         ��定的字符串轉換為��點�?
StrToInt                    函數         ��字�W�串轉換為整�?
StrToIntDef                 函數         ��字�W�串轉換為整型或默認�?
StrToTime                   函數         ��字�W�串轉換為時間格�?
StrUpper                    函數         ��字�W�串中的字符轉換為大�?
Style                       屬性       �?��型選擇
Suce                        函數         �q�回後繼的參�?
Swap                        函數         交換參數的高低地址�?
Tabs                        屬性       �?標記每一項的內容
TabIndex                    屬性       �?標記索引
Text                        屬性       �?��示的文�?
TextToFloat                 函數         ��字�W�串�Q�以NULL�i�束的格式）轉換為��Q點數
Time                        函數         �q�回當前的時�?
TimeToStr                   函數         ��時間格式轉換為字符�?
Trim                        函數         從��定的字符串中刪除前導和尾部的�I�格及控制字�W?
TrimLeft                    函數         從��定的字符串中刪除首部的空格及控制字符
TrimRight                   函數         從��定的字符串中刪除��N��的空格及控制字符
Trunc                       函數         ��實型值截取為整型�?
Truncate                    函數         截去當前文�g位置後的內容
UnSelectedColor             屬性       �?未選中顏�?
UpCase                                   ��字�W�轉換為大寫
UpperCase                                ��定的字符串變為大�?
Val                         函數         ��字�W�串轉換為整型�?
VarArrayCreate              函數         以��定的界限和維數徏立變體數�i?
VarArrayDimCount            函數         �q�回�i�定變體的維�?
VarArrayHighBound           函數         �q�回�i�定變體數組�E�數的上�?
VarArrayLock                函數         鎖定�i�定的變體數�i?
VarArrayLowBound            函數         �q�回�i�定變體數組�E�數的下�?
VarArrayOf                  函數         �q�回指定變體的數�i�元�?
VarArrayRedim               函數         通過改變上限來調整變體的大小
VarArrayUnlock              函數         解鎖指定的變體數�i?
VarAsType                   函數         ��變體轉換為指定的類�?
VarCase                     函數         ��變體轉換為指定的類型並保存�?
VarClear                    函數         清除指定的變�?
VarCopy                     函數         ��指定的變體複製為指定的變體
VarFormDateTime             函數         �q�回包含日期時間的變�?
VarIsArray                  函數         測試變體是否為數�i?
VarIsEmpty                  函數         測試變體是否為UNASSIGNED
VarIsNull                   函數         測試變體是否為NULL
VarToDateTime               函數         ��定的變體轉換為日期時�?
VarType                     函數         ��變體轉換為指定的類型並保存�?
Visible                     屬性       �?控�g的可見�?
WantReturns                 屬性       �?為True時，按回車鍵產生一個回車符�Q?br />                                         為False時，按下Ctrl+Enter才產生回車符
Write                       命��o         ��有格式的文�Ӟ��寫一變量到文件組件中�Q?br />                                         ��文本文�Ӟ��寫一個或多個值到文�g�?
Writeln                     命��o         埯��WRITE過程�Q�然後��Z��行結束標�?
WideCharLenToString         函數         ��ANSI字符串轉換為UNICODE字符�?
WideCharLenToStrWar         函數         ��UNICODE字符串轉換為ANSI字符串變�?
WideCharToString            函數         ��UNICODE字符串轉換為ANSI字符�?
WideCharToStrVar            函數         ��UNICODE字符串轉換為ANSI字符串變�?

liaojiyong 2007-02-06 15:12 发表评论

liaojiyong — Tue, 06 Feb 2007 07:04:00 GMT

一般我們設�a�一個物�Ӟ��規規矩矩的從 VCL 下選擇一個最�W�合本��n需求的物計

�J�承下來�Q�從這個物仉��始擴充功能，但有時候這種標準的設�a�方式，有實

際的困難�Q�一者我們手上可能沒有這個物件的 Source �Q�二者更攚w��個物件之

後，需考慮原先的物件可能已�E�在�pȝ��中運作，��Z��不破壞原有的物�g功能

�Q�及使用的介面，這個時候我們需要一�E�偷龍轉鳳的�Ҏ��Q�偷��L��把這個物

件至換掉�Q�要�|�換這個物�Ӟ��最好的�Ҏ��是產生一個一模一樣的��別��Z��

�Q�而且不改變原有物件的屬性及�Ҏ��Q�或者是在原有物件上擴充功能�?/span>

以下提供一個另��的�a�計�Ҏ��Q�來解決這個問��。假如有一�?/span> TEdit 的物�?/span>

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

介面下，如何來擴充這個功能呢�H?/span>

請看這個範例的說明�H?/span>

這個繼承自 TEdit �?/span> TMyEdit 很簡單的宣告 ReadOnly 這個屬性，其他

Create �Q?/span> Load 的方法，只是要在�a�計期間取得目前正確的顏色設定而已�?/span>

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 上面�Q�這�?

procedrue 動了以下的手�?/span> : 在繼�?/span> ReadOnly 原有的屬性之後，進行��色的改變�?/span>

procedure TMyEdit.SetReadOnly(Value: boolean);

begin

FReadOnly:= Value;

inherited ReadOnly:= Value;

SetColor;

end;

SetReadOnly 在父層類�?/span> TCustomEdit

中已有定��，只是它被攑֜� private

區�D�裡�Q�子��別是看不到的，否則只要改寫 SetReadOnly

�Ҏ��p��了。在這裡重新定義�?/span> ReadOnly

屬性，除了保有爉��?/span> ReadOnly

屬性的作用�Q�並賦予它新的行為。在�a�計��別時，也許��?/span>

Get/Set 存取�Ҏ��宣告�?/span> protected

區�D�|��比較方便�Q�後代類別可以直接改�?/span> Get/Set

�Ҏ��來改變或附加行為�Q�但這也表示爉��別將失去��私有成員的保護力，子類別幾�?/span>

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

Get/Set 攑֜� private 還是 protected

區�D�實��仁見智的問題�Q�設�a�者可視情況選擇對自己最有利的方式�?/span>

以下�?/span> TMyEdit 所有實作的部分�H?/span>

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;

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

�E�寫好的單元�Q�首先我們拉一�?/span> Form1 ��Z��Q�在上面放一�?/span> Edit1 �?/span>

Button1 �Q�當然您還要建構這�?/span> TMyEdit 的物�Ӟ��Z��方便赯��Q�請��?/span>

個單元直�?/span> Copy �?/span> Form1 所屬的單元裡頭�Q�然後在 Button1 上面�Q�寫�?/span> :

TMyEdit(Edit1).ReadOnly := False;

埯��看看�Q�按一�?/span> Button1 �Q�這時�?/span> Edit1 �?/span> ReadOnly 是不是多了改變顏色的功能�H?/span>

liaojiyong 2007-02-06 15:04 发表评论

liaojiyong — Tue, 06 Feb 2007 06:58:00 GMT

11.ALT+ 游標左鍵可以塊選�E�式��|��用來刪除��齊的重複程式碼非常有用

23.Ctrl+I �?/span> Tab �?/span>

24.CTRL+J ( 彈出 Delphi 語句提示視窗�Q�選擇所需語句��自動完成一條語�?/span> ) �E�式��模�?/span>

25.Ctrl+M �?/span> Enter ��c�?/span>

26.Ctrl+N �?/span> Enter 鍵，但游標位�|�保持不�?/span>

27.Ctrl+T 刪除游標右邊的一個單�?/span>

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

37.CTRL+ENTER 定位到單元文�?/span>

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

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

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

45.Ctrl+Shift+G 插入 GUID

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

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

48.CTRL+SHIFT+C �R�寫��x��或者補上函數，�i�好 !!!

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

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

liaojiyong 2007-02-06 14:58 发表评论

liaojiyong — Wed, 17 Jan 2007 08:27:00 GMT

1. delphi怎样调用外部EXE文�g�Q?

　　uses WinProcs;
　　.
　　begin
　　WinExec(…�?;
　　.
　　end.
　　
　　和调用Pascal库函数没什么两栗��?

　　2. Delphi hint的字体和色彩如何改变
　　
　　Delphi中Tapplication的属性有HintColor及HintPause。可以通过讄��HintColor改变应用�E�序中的Hint的颜艌Ӏ�通过讄��HintPause改变触发Hint的时间。但遗憾的是�Q�Delphi中Hint的字体不可以改变�?

　　3. Delphi里如何计��日�?
　　
　　��时间在delphi中是最�Ҏ��的，如下�Q?

　　var ss : TDateTime

　　其实Tdatetime是一个双�_�ֺ�的��Q�Ҏ��Q�它的小数点前表�C�天敎ͼ�如， ss := ss + 20 表示从ss开始向�?0天，如果 ss = 234.567 它就表示 234.567�?当然是从公元0�q�开始计��的�Q?

　　4. 如何用Delphi�~�ScreenSaver? (null)
　　
　　屏幕保护�E�序无非是扩展名换成�?SCR的可执行�E�序�Q�它接受两种命��o行参敎ͼ�
　　s �q�行命��o参数
　　c 配置命��o参数
　　Windows通过向程序发-s命��o行参数来启动�E�序。要注意的是�Q�程序的�H�口是无�Ҏ��和标题；�H�口大小应与屏幕大小一��P��q�要注意�H�口的事件的处理�?

　　5. Delphi 中如何改目录的名�?
　　
　　调用RenameFile函数�Q�如:
　　RenameFile(’c:wang emp�? ’c:wang mp�?;

　　6. DELPHI昄��JPEG囑փ�文�g

　　只要 uses中加�?JPEG��p��Q�JPEG单元里是有一个TJPEGImage�c?可定义一变量如Jpeg,用LoadFromFile调入某个JPEG文�g, 然后用Form的Canvas.Draw(x,y,Jpeg)卛_��昄��.

　　7. Delphi中对Jpeg格式文�g的处理�?

　　(1).�?Uses 中加�?JPEG 单元;

　　(2).定义一个全�E�变�?例如 var AJPEG : TJPEGImage;

　　(3).�?Form �?OnCreate 事�g中加�?:

　　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 文�g

　　(4).�?Form �?OnPain 事�g中加入Canvas.Rectangle(2,2,560,430); //��M��个黑框的矩�Ş��图片围�?
　　
　　x:=10; y:=10;
　　Form1.Canvas.Draw(x,y,Ajpeg); //�?x,y)为左上角输出 JPEG 文�g;
　　//实际上其作用是当囑�Ş被破坏是使图形恢�?

　　(5).在’Load’或’Browse’按钮的 onClick 事�g中加�?

　　begin
　　if OpenPictureDialog1.Execute then
　　begin
　　Ajpeg.Free; //释放旧Ajpeg;
　　Ajpeg:=TJpegImage.Create; //产生一个新的Ajpeg;
　　Ajpeg.LoadFromFile(OpenPictureDialog1.Filename); //载入JPEG文�g;
　　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;

liaojiyong 2007-01-17 16:27 发表评论

Delphi中��代码��z�的 5 条忠�?�?

liaojiyong — Fri, 22 Dec 2006 07:19:00 GMT

写代码是一�U�艺术。��用Delphi�Q��Q何�h都可以轻而易丑֜�开发出某种软�g、完成某些�Q务。而完��的代码则只有真正的高手才能写出。除了正��的�~�进、大��写、命名规则之外，��h��ȝ��记爱因斯坦的名言--��单就是美。下面将谈及的五个代码问题，可能是初学者、甚至一些老鸟都会犯的错误�?/p>

忠告一

布尔型变量的赋值操作应该是直接的。例如，在一个if/then/else语句中，if子句��布��型变量赋��gؓTrue�Q�而else子句��其赋�ؓFalse。下面这�D�代码的写法是不好的�Q?/p>

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

而这样写��比较好�Q?/p>

Result:= If_Love_Delphi;

忠告�?/p>

避免使用嵌套的if/then/if语句�Q�而用and来代�ѝ��下面这�D�代码太�|�嗦�Q?/p>

if If_Love_Delphi then
if If_Love_Linux then
TryKylix(Now);

应该�q�样写：

if If_Love_Delphi and If_Love_Linux then
TryKylix(Now);

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

�l�合前两个忠告，假如你有一�D�这��L��代码�Q?/p>

if If_Love_Delphi then
if If_Love_Linux then
Result:=True;

��可以把它改成：

Result:= If_Love_Delphi and If_Love_Linux�Q?/p>

��单而言�Q�假如结果取决于一个条件判断，那么�Q�Result:=True或者Result:=False�q�样的语句就是多此一举。在初始化布��型变量的时候，可以�l�它们赋倹{��不�q�根本用不着把一个布��型变量初始化�ؓFalse--Delphi在创��个变量的时候就已经把它赋职位False了。相似的情况�q�有�Q?/p>

对象的布��型属�?Boolean)�Q�自动被初始化�ؓFalse (0)�Q?br />整型变量(Integer)�Q�自动被初始化�ؓ 0�Q?br />字符�?String)�Q�自动被初始化�ؓ�I�字�W�串�?/p>

忠告�?/p>

判断布尔型变量的值时�Q�无需�?=True"或�?=False"�q�样的语句。下面的写法不好�Q?/p>

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

对于函数的返回值或者一个属性是布尔型的情况�Q�应该这样写�Q?/p>

if If_Love_Delphi and
not If_Love_Linux then
DoNotTryLinux;

忠告�?/p>

��量不要�?+"操作�W�进行字�W�串合�ƈ。这样做效率太低了。下面的例子不好�Q?/p>

ShowMessage('在下�w�高'+IntToStr(iHeight)+'�c�I��体重'+IntToStr(iWeight)+'公斤�?);

�q�样写会较好�Q?/p>

ShowMessage(Format('在下�w�高%d�Q�体�?d�?, [iHeight,iWeight]));

忠告�?/p>

��量多用with语句。它不仅效率高，而且使代码更加易诅R��比如，�q�段代码�Q?/p>

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

��׃��如这��L��代码来得��z�易读：

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
�q�接:http://www.csdn.net/Expert/TopicView1.asp?id=724036
日期:2002-06-22
支持:wjhu111#21cn.com
//*)

{ No.1 判断逻辑�c�d�� }
var B: Boolean;
begin
B := Boolean(2); //�q�样只是��Z��调试//B := True;
if B = True then ShowMessage('B = True'); //不徏�?/不安�?br /> ///////
if B then ShowMessage('B'); //��//��?br />end;

var B: Boolean;
begin
if Edit1.Text = '�? then //不徏�?/烦琐
B := True
else B := False;
///////
B := Edit1.Text = '�?; //��//��?br />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'; //不徏�?/严重��费资源�Q�会取得很多不必要得信息
Query1.Open;
vRecordCount := Query1.RecordCount;
Query1.Close;
/////
Query1.SQL.Text := 'SELECT COUNT(*) AS 记录�?FROM Table1'; //��//快速有效、只处理一条记�?br /> Query1.Open;
vRecordCount := Query1.FieldByName('记录�?).AsInteger;
Query1.Close;

ShowMessage(IntToStr(vRecordCount));
end;

{ No.4 字段赋�?}
begin
Table1.Edit;
Table1.FieldByName('姓名').AsString := Edit1.Text; //不徏�?br /> 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 //不徏�?/�Ҏ��被媄�?br />    Query1.Next;
    { };
end;
/////
Query1.First;
while not Query1.Eof do begin //��
    { };
    Query1.Next;
end;
end;

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

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

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

{ No.10 利用MaxInt帔R�� }
begin
Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不徏�?br /> ///////
Caption := Copy(Edit1.Text, 3, MaxInt); //��//��d��Q�少计算一��?br />end;

{ No.11 Result函数指针 }
function FuncName: Boolean;
begin
FuncName := True; //不徏�?/�q�且攑֜�赋值号双��不能当普通变�?br /> ///////
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; //不徏�?/如果出现异常资源��无法释�?br /> ///////
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)�Q�自动被初始化�ؓFalse (0)�Q?br />>>整型变量(Integer)�Q�自动被初始化�ؓ 0�Q?br />>>字符�?String)�Q�自动被初始化�ؓ�I�字�W�串�?/p>

�q�个不一�?/p>

局部变量最好初始化一�?不然会��生莫名错�?
特别�? Integer, string, Pointer
偶的�l�验
Table1['姓名'] := Edit1.Text; �q�个可以但要是：
Edit1.Text := Table1['姓名'] //�q�个�l�对不行�Q�因��时候要是NULL��׃��报错 �q�时候要FieldByName

己找到答案了�Q�AnsiString也可以在Format和sprintf里用"%s"里指�?

俺想��数两三个AnsiString�q�是可以�?+"来连接，而更多的AnsiString应该用sprintf或Format�?/p>

比较一�?/p>

strMsg ="姓名: " + name + "�q�龄: " + IntToStr(age) + "��L��: " + IntToStr(num) + "工资: " + IntToStr(salary);

�?/p>

strMsg.sprintf("姓名: %s�q�龄: %d��L��: %d工资: %d",name,age,num,salary);

后者可��L��比前者要略好�Q�生成的机器码只�?/3, 更重要的是可以把sprintf里的格式字符串提出来集中�l�护�Q�而前者用"+"��D��的大量零��字�W�串��׃��好处理�?/p>

后者唯一�~�点是当有大量参数时�Q�需要花一点工夫将格式字符串和相应的参数对齐�?br />

忠告1: 如果要用到with的地�?��h��惌��不能重构,��其作�ؓ一个函��C��?br />忠告2: 对于数据集的CLOSE请��?br />       try
         DataSet.Open;
       finally
         DataSet.Close;
       end;
忠告3: 使用Sender�?请先判断一下是不是nil, 是不是非你要的那个类�?br />忠告4: FieldValue对null的处理实在是�?误��是��用FieldByName().AsXXXXX�q�个
忠告5: 如果你要写一个长长的判断,�q�是写成一个函数吧,不要写进一个if then�?那样,几天�?你就��看不懂�?br />

1、关于WITH�Q�我个�h基本不喜�Ƣ用�Q�因��Z��带来的是可读性非常差。一个参数类�Q�几个属性的时候，用的�q�好�Q�而且��目�l��h同要比较熟练�q�个�c�！如果二个以上的参数类�Q�天知道怎么读这一��段的WITH代码�?br />2、关于字�W�串�Q�用+和Format�q�两个我一般是看情�늚�。有些字�W�串边境用Format��很不好使，比如对一些SQL语句的拼写，多个SQL�?�q�接代码易读性高。而且�q�个效率�q�算好！然而一些楼主都提及的字�W�串�Q�当然用Format要好�Q�同��h��L��好�Q�我觉得在��用到字符�Q�串�Q�操作的时候可��L��是主要的，如果跟效率搭上边了，长字�W�串处理�Q�我觉得已经是设计问题了�?br />3、关于FOR和WHILE的比较，数据集的遍历当然用WHILE。RecordCount除非你不用数据集�q�渡�Q�如果用了，�q�个�pȝ��大了�Q�维护死你，不可预见性太高了。这不是效率问题�Q�是你写出来的��Y件能不能用的问题�?br />4、关于FieldByName。这个嘛提下�Q�我一直都是用它的。除非特�D�性情会用Fields[]。要不然�Q�别人的软�g交给你维护的时候，你就�{�着哭吧�Q�查字段你就得花上所有的加班旉��。�?/p>

可能我说的没道理�Q�大家就指出来，如果能证明就更好了，�q�样我又学到东西了。�?br />

liaojiyong 2006-12-22 15:19 发表评论

delphi函數學習

liaojiyong — Thu, 14 Sep 2006 03:21:00 GMT

1.
function Assigned(var P): Boolean;判斷過程或指針是否存�?br />Description
Use Assigned to determine whether the pointer or procedure referenced by P is nil. P must be a variable reference of a pointer or procedural type. Assigned(P) corresponds to the test P<> nil for a pointer variable, and @P <> nil for a procedural variable.
Assigned returns False if P is nil, True otherwise.

liaojiyong 2006-09-14 11:21 发表评论

Delphi初学者应��心的六大陷阱（转）

liaojiyong — Wed, 30 Aug 2006 02:09:00 GMT

初学DelphiI的�h�Q�由于各�U�原因，对DelphiI中的许多概念不能很好的理解，�q�由此带来了许多的问题，或者是开发出的程序稳性不好，一会能�q�行�Q�一会又不能�q�行�Q�或者是遇到一个问题久思不得其解，�q�误以�ؓ是DelphiI自��n的BUG�Q�等�{�这些，��费了我们大量的旉��、精力，也媄响了我们的开发效率�?br />　　
　　那么如何才能避免�q�些错误了，��量��走弯�\了？�W�者从事DelphiI开发多�q�_��下面��把我的�l�验�ȝ��介绍�l�大�Ӟ��希望帮助到初学DelphiI的朋友�?br />　　
　　问题一�Q�对�cȝ��概念理解不到位，�E�序开发中不能灉|��q�用。请看下面的�E�序�Q?br />　　
　　unit Unit1;
　　interface
　　
　　uses
　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　Dialogs, StdCtrls, shellApi;
　　
　　type
　　TForm1 = class(TForm)
　　Button1: TButton;
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end;
　　
　　var
　　Form1: TForm1;
　　implementation
　　
　　uses CommonUni;
　　
　　
　　在DelphiI中新��Z��个程序，然后��d��一个按钮，��得��C��下面�q�段�E�序。这应该是大家相当熟悉的一�D늨�序，可也��是�q�段�E�序�Q�让许多的�h在做开发很长时间后�Q�还不能很好理解�?该程序可分�ؓ三个个部分：�W�一部分�Q�单元头�Q�从起始位置到TYPE之前�Q�；�W�二部分�Q�从TYPE到END的部分）�Q�定义了一个从Tform�l�承�q�来的窗体类�Q�它包含一个Tbuttton�c�d��的成员。最后一部分�Q�Var到结束的部分�Q�，定义了一个Tform1�c�d��的变量。问题就出在�q�里了，许多��以�ؓ�q�最后一�D�也是窗体类的一部分�Q�在该窗体类中经常写��L��代码�Q�Form1.caption = ’窗体标题’，��D��E�序�q�行时得不到所要的�l�果。其实最后一部分�Ҏ��属于窗体类的定义，它们不过是在同一个UNIT中而已�Q�所以代码应该这样写�Q�self.caption = ’窗体标题’；
　　
　　问题二：��释攑֯�象的代码写在�H�体的CLOSE事�g中，��D��Access Violation…的错误�?br />　　
　　一个窗体的关闭�Q�CLOSE�Q�与�H�体的析构（Destory�Q�，在系�l�处理上是有区别的，当一个窗体关闭时�Q�窗体实际上只是隐藏��h��了，它占用的资源�q�未从内存中释放了，我们�q�是可访问到�H�体中的数据�Q�而当�H�体响应DESTORY事�g�Ӟ��H�体不仅仅是隐藏��h��了，而且占用的系�l�资源也释放出来了。因此，如果一个窗体关闭后�Q�我们还惌��里面的对象，��应该将�q�些对象的FREE代码写的�H�体的（DESTORY�Q�事件中�?br />　　
　　问题三：不加区别��C��用String与shortString数据�c�d��?br />　　
　　String�c�d��与shortString�c�d��是有区别的，在默认的情况下（取决�?H开养I��Q�如果你��一个变量定义�ؓstring�c�d��Q�那么会被处理成一个ANSIString�c�d��。这�U�类型是动态分配内存的�Q�以NULL为结��，最大长度�ؓ4G�Q�而shortString的最大长度是不能��过255个字�W�的。由于ANSIstring是生存期自管理类型的数据�Q�这意昧着�q�种�c�d��的数据需要更多的�pȝ��开销�Q�所以在�E�序开发中�Q�shortString能满��求的话，��尽量��用它�Q�以提高�E�序的运行速度�?br />　　
　　问题四：�q�行数据�c�d��转换时处理不当，犯错误最多的��是字符型到数字/��点型的转换�?br />　　
　　当将一个字�W�型数据转换为整型时�Q�我们经常这样写 I := StrToInt(aEdit.Text); 表面上看�q�一句，没有��M��问题�Q�函数的使用�Q�格式的写法�Q�都是正��的。可有一�U�情冉|��们却没有考虑刎ͼ�如果用户在aEdit文本框中输入的不是数字文本的话，会怎么样呢�Q�调用还会成功吗�Q�显然是不会的，�pȝ��肯定会弹��Z��个英文的错误�Q�让我们的用户不知所措的。正��的写法是：I := StrToIntDef(aEdit.Text, 0); �q�样当�{换不成功�Ӟ��W�二个参数就会赋�l�I。类似的函数�q�有strToInt64Def�Q�StrToFloatDef�{�等�?br />　　
　　问题五：单元引用的问题。��用那个函敎ͼ��׃��定要引用函数所在的单元�?br />　　
　　比如在程序开发中我们要用��C��个API函数ExtractIconEx�Q�从�E�序或是文�g中获得一个图标）�Q�那么就一要在它的USES中把单元shellApi加入�q�来�Q�否则是不能通过�~�译了。类似的情况�q�有很多�Q�我们常�怋�用帮助文档，从中查找需要的函数�Q�可当程序编译时�Q�却通不�q�，��Z��么呢�Q�就是因为没有在USES中引用函数所在的单元。这个问题初学者犯得最多，应该加倍注意�?br />　　
　　问题六：避免循环引用�Q�尽可能通过�W�三个单元实现。如果确实不可避免，应在不同位置�q�行引用。所谓��@环引用就是A单元引用了B单元�Q�而反�q�来�Q�B单元又引用了A单元�Q��生��@环。我们还看上面的那一�D늨�序，在interface的下面有一个USES语句�Q�而在implementation的下面，又有一个USES语句。��@环如果确实不可避免，那么��应该在��A单元中的引用写在�W�一个USES语句中，而将B单元中的引用写在�W�二个USES语句中�?br />

liaojiyong 2006-08-30 10:09 发表评论

liaojiyong — Mon, 21 Aug 2006 10:04:00 GMT

下面的快捷键大部分在Delphi 5.0的菜单中找不刎ͼ�其中有一些还是非常有用的�?/p>

Ctrl+PageUp ��光标移��x��屏的�W�一行，屏幕不滚动�?br /> Ctrl+PageDown ��光标移��x��屏的最后一行，屏幕不滚动�?br /> Ctrl+↓ �?向下滚动屏幕�Q�光标跟随滚动不出本屏�?br /> Ctrl+↑ �?向上滚动屏幕�Q�光标跟随滚动不出本屏�?br /> Ctrl+Shift+NUM 在光标行讄��最多九个��时标志号�Q�对临时切换非常有用�?br /> 行的左边��出��C��本书�Q�封面有NUM�Q�再按一�ơ取消设�|�。�?
Ctrl+NUM 直接��光标蟩到NUM处，NUM是用Ctrl+Shift+NUM讄��的标受��?br /> NUM不能用小键盘�?br /> Ctrl+Home ��光标移��x��件头�?br /> Ctrl+End ��光标移��x��件尾�?br /> Ctrl+B Buffer List�H�口�?br /> Ctrl+I 同Tab键�?br /> Ctrl+M 同Enter键�?br /> Ctrl+N 同Enter键，但光标位�|�保持不变�?br /> Ctrl+T 删除光标双��的一个单词�?br /> Ctrl+Y 删除光标所在行�?/p>

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

Ctrl+F3 Call Stack�H�口�?br /> Ctrl+F4 �{�于File菜单中的Close��V�?/p>

Ctrl+鼠标转轮加速滚屏�?/p>

Shift+F8 调试时弹出CPU�H�口�?br /> Shift+F10 �{�于鼠标右键�Q�Windows快捷键）�?/p>

Alt+F4 关闭所有编辑框中打开的源�E�序文�g�Q�但不关闭项目�?br />

liaojiyong 2006-08-21 18:04 发表评论

delphi学习�W�记

liaojiyong — Mon, 21 Aug 2006 01:38:00 GMT

1、指针：@攑֜�变量前面��获取变量的地址�Q��ƈ可以把地址赋��gؓ同样数据�c�d��得指针。把^攑֜�一个数据类型的前面可以定义一个指针，把^攑֜�一个指针后面，可以获得该指针指向地址�I�间的类宏V�?br />不可以将指针所指地址中的�c�d��直接赋值给其他�c�d��的变量�?br />2、变体类�?variant)�Q�Variant 能支持所有的��单数据类型及OLE自动化对象。注意Variant不能表达Object Pascal对象�?br />3、强制类型�{换：只有当两个变量的数据长度一��h��Q�才能对变量�q�行强制转换。例如：不能把一个Double�c�d��转换成Integer�?br />
�q�算�W?Operators)�Q?br />   1、赋��D��符�Q�Number:=5
   2、比较运��符�Q?br />   3、逻辑�q�算�W�：
   4、算术运��符�Q?br />   5、位�q�算�W�：
   6、加减运��符�Q?br />   7、指针运��符�Q?br />   8、基和运��符�Q?br />   9、类�q�算�W�：
   10、@�q�算�W�：

        一般来�Ԍ��在过�E�和函数中，��M��c�d��说明都在变量说明之前�Q�而�Q何变量说明都在常量之前。但是，只要遵从说明必须在过�E�与函数的标题之后，而且在程序代码之前，��x��有效的�?br />
不管一个库单元是否和一个窗体有养I��库单元的�l�构都是相同的。其�l�构如下�Q�　

unit <库单元名�U?/font>>　

interface　

uses <选择性的库单元列�?/font>>

{公有说明}　

implementation　

uses <选择性的库单元列�?/font>>

{�U�有说明}

{�q�程和函数的执行部分}

initialization {选择性的}

{选择性的初始化程序}

end.

liaojiyong 2006-08-21 09:38 发表评论

DELPHI基础教程

liaojiyong — Fri, 18 Aug 2006 09:31:00 GMT

http://www.cnread.net/cnread1/dnwl/cxsj/delphi/jcjc/index.html

liaojiyong 2006-08-18 17:31 发表评论

www.九色在线,九色精品免费永久在线,精品国产电影

Delphi 5 寫碼標準

Delphi中��代码����z�的 5 条忠�?�?

delphi函數學習

Delphi初学者应���心的六大陷阱（转）

delphi学习�W�记

DELPHI基础教程

Delphi中��代码��z�的 5 条忠�?�?

Delphi初学者应��心的六大陷阱（转）