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

　　用過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 CTestclassSetText(text:String);
Begin
Tmessage:=text;
end;

Function CTestclassGetText: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 CTestclassSetText(text:String);
Begin
Tmessage:=text;
end;

Function CTestclassGetText: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 Unit;

interface

uses
   Windows Messages SysUtils Variants Classes Graphics Controls Forms
   Dialogs global;

type
   TForm = class(TForm)
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form: TForm;
   Tclass:CTestclass; file://你要增加的類的引用聲明

implementation

{$R *dfm}

procedure TFormFormCreate(Sender: TObject);
begin
     TclassCreate;
     TclassSetText(這是一個類的測試);
     showmessage(TclassGetText); file://此處是對你自己寫的類的一個測試
end;

end

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

From:http://tw.wingwit.com/Article/program/Delphi/201311/25041.html