怎么在程序中使用自己的庫(kù)單元
發(fā)表時(shí)間:2023-08-23 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]用過(guò)VB的人都知道,可以在工程中增加類(lèi)模快來(lái)存放共用方法,而在delphi中如何也能與VB一樣存放自己的類(lèi)呢?通過(guò)下面的講解,我想你一定會(huì)有所收獲的。一,在工程中增加一個(gè)庫(kù)單元單擊菜單的順序?yàn)?Fi...
用過(guò)VB的人都知道,可以在工程中增加類(lèi)?靵(lái)存放共用方法,而在delphi中如何也能與VB一樣存放自己的類(lèi)呢?通過(guò)下面的講解,我想你一定會(huì)有所收獲的。
一,在工程中增加一個(gè)庫(kù)單元
單擊菜單的順序?yàn)?File -> New -> Unit 這樣就為你的工程增加了一個(gè)庫(kù)單元。新增加的庫(kù)單元內(nèi)容如:
unit global;//庫(kù)單元的名字
interface
file://<---這里加入選擇性庫(kù)單元列表
implementation
end.
二,在庫(kù)單元中增加自己的類(lèi)
在Object Pascal中,用關(guān)鍵字Class來(lái)聲明類(lèi)。使用如下語(yǔ)法:
Type
CTestclass = class file://定義一個(gè)類(lèi),命名規(guī)律自己看一看delphi相關(guān)的命名規(guī)律
end;
當(dāng)然,這段代碼,沒(méi)有什么實(shí)際用途,只是僅僅聲明了一個(gè)空類(lèi),而類(lèi)在沒(méi)有任何的數(shù)據(jù)和操作,在下面我們可以向類(lèi)中添加數(shù)據(jù)和方法。
Type
CTestclass = class
Tmessage:String;
Procedure SetText(text:String);
Function GetText:String;
end;
類(lèi)的函數(shù)成員和過(guò)程成員成為類(lèi)的方法。他們的說(shuō)明和定義方法與普通的函數(shù)和過(guò)程相似,唯一的區(qū)別是要在函數(shù)名和過(guò)程名前面加類(lèi)名和句點(diǎn)。
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;
Function CTestclass.GetText:String;
Begin
GetText:=Tmessage;
end;
這樣一個(gè)簡(jiǎn)單的類(lèi)就編寫(xiě)完成了,你可以按下面所講的步驟進(jìn)行調(diào)用。
將上面的代碼整理一下,這個(gè)庫(kù)單元的完整代碼如下:
unit global;//庫(kù)單元的名字
interface file://接口部分
uses
windows;//需要引用的其它庫(kù)單元列表
Type file://接口類(lèi)型定義
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.
三,調(diào)用自定義庫(kù)單元文件(或其它庫(kù)單元)中的方法
在你需要引用的文件uses處,添加你自己的庫(kù)單元的名稱(chēng)
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, global; file://注意這里的global是你自己寫(xiě)的庫(kù)單元的名稱(chēng)
一旦在uses部分引用了你的庫(kù)單元,就可以按如下進(jìn)行調(diào)用:
Var
Tclass:CTestclass;
這樣一來(lái)就可以如當(dāng)前文件中的窗體類(lèi)一樣調(diào)用了。完整代碼如下:
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://你要增加的類(lèi)的引用聲明
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Tclass.Create;
Tclass.SetText('這是一個(gè)類(lèi)的測(cè)試');
showmessage(Tclass.GetText); file://此處是對(duì)你自己寫(xiě)的類(lèi)的一個(gè)測(cè)試
end;
end.
好了,在你的計(jì)算機(jī)中輸入完上面的代碼后,運(yùn)行試一試吧。這里只是對(duì)庫(kù)單元的引用舉了一個(gè)簡(jiǎn)單例子,關(guān)于詳細(xì)寫(xiě)法請(qǐng)參看相關(guān)書(shū)籍中對(duì)庫(kù)單元及類(lèi)編程的講述。