程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 如何在程序中使用自己的庫單元

如何在程序中使用自己的庫單元

編輯:Delphi

  用過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.

  好了,在你的計算機中輸入完上面的代碼後,運行試一試吧。這裡只是對庫單元的引用舉了一個簡單例子,關於詳細寫法請參看相關書籍中對庫單元及類編程的講述。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved