用過VB的人都知道,可以在工程中增加類模快來存放共用方法,而在Delphi中如何也能與VB一樣存放自己的類呢?通過下面的講解,我想你一定會有所收獲的。
一,在工程中增加一個庫單元
單擊菜單的順序為 File -> New -> Unit 這樣就為你的工程增加了一個庫單元。新增加的庫單元內容如:
unit global;//庫單元的名字
interface
file://<---這裡加入選擇性庫單元列表
implementation
end.
二,在庫單元中增加自己的類
在Object Pascal中,用關鍵字Class來聲明類。使用如下語法:
Type
CTestclass = class file://定義一個類,命名規律自己看一看Delphi相關的命名規律
end;
當然,這段代碼,沒有什麼實際用途,只是僅僅聲明了一個空類,而類在沒有任何的數據和操作,在下面我們可以向類中添加數據和方法。
Type
CTestclass = class
Tmessage:String;
Procedure SetText(text:String);
Function GetText:String;
end;
類的函數成員和過程成員成為類的方法。他們的說明和定義方法與普通的函數和過程相似,唯一的區別是要在函數名和過程名前面加類名和句點。
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;
Function CTestclass.GetText:String;
Begin
GetText:=Tmessage;
end;
這樣一個簡單的類就編寫完成了,你可以按下面所講的步驟進行調用。
將上面的代碼整理一下,這個庫單元的完整代碼如下:
unit global;//庫單元的名字
interface file://接口部分
uses
Windows;//需要引用的其它庫單元列表
Type file://接口類型定義
CTestclass = class
Tmessage:String;
Procedure SetText(text:String);
Function GetText:String;
end;
implementation
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;
Function CTestclass.GetText:String;
Begin
GetText:=Tmessage;
end;
end.
三,調用自定義庫單元文件(或其它庫單元)中的方法
在你需要引用的文件uses處,添加你自己的庫單元的名稱
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, global; file://注意這裡的global是你自己寫的庫單元的名稱
一旦在uses部分引用了你的庫單元,就可以按如下進行調用:
Var
Tclass:CTestclass;
這樣一來就可以如當前文件中的窗體類一樣調用了。完整代碼如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, global;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Tclass:CTestclass; file://你要增加的類的引用聲明
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Tclass.Create;
Tclass.SetText('這是一個類的測試');
showmessage(Tclass.GetText); file://此處是對你自己寫的類的一個測試
end;
end.
好了,在你的計算機中輸入完上面的代碼後,運行試一試吧。這裡只是對庫單元的引用舉了一個簡單例子,關於詳細寫法請參看相關書籍中對庫單元及類編程的講述。