用過VB的人都知道，可以在工程中增加類模快來存放共用方法，而在delphi中如何也能與VB一樣存放自己的類呢？通過下面的講解，我想你一定會(huì)有所收獲的。
一，在工程中增加一個(gè)庫(kù)單元
單擊菜單的順序?yàn)?File -> New -> Unit 這樣就為你的工程增加了一個(gè)庫(kù)單元。新增加的庫(kù)單元內(nèi)容如：

unit global;//庫(kù)單元的名字

interface
           file://<---這里加入選擇性庫(kù)單元列表
implementation

end.

二，在庫(kù)單元中增加自己的類
在Object Pascal中，用關(guān)鍵字Class來聲明類。使用如下語(yǔ)法：

Type
     CTestclass = class  file://定義一個(gè)類，命名規(guī)律自己看一看delphi相關(guān)的命名規(guī)律
end;

當(dāng)然，這段代碼，沒有什么實(shí)際用途，只是僅僅聲明了一個(gè)空類，而類在沒有任何的數(shù)據(jù)和操作，在下面我們可以向類中添加數(shù)據(jù)和方法。

Type
     CTestclass = class
     Tmessage:String;
     Procedure SetText(text:String);
     Function GetText:String;
end;

類的函數(shù)成員和過程成員成為類的方法。他們的說明和定義方法與普通的函數(shù)和過程相似，唯一的區(qū)別是要在函數(shù)名和過程名前面加類名和句點(diǎn)。
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;

Function CTestclass.GetText:String;
Begin
     GetText:=Tmessage;
end;

這樣一個(gè)簡(jiǎn)單的類就編寫完成了，你可以按下面所講的步驟進(jìn)行調(diào)用。
將上面的代碼整理一下，這個(gè)庫(kù)單元的完整代碼如下：

unit global;//庫(kù)單元的名字

interface file://接口部分
uses          
     windows;//需要引用的其它庫(kù)單元列表
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.


三，調(diào)用自定義庫(kù)單元文件（或其它庫(kù)單元）中的方法
在你需要引用的文件uses處，添加你自己的庫(kù)單元的名稱

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, global; file://注意這里的global是你自己寫的庫(kù)單元的名稱

一旦在uses部分引用了你的庫(kù)單元，就可以按如下進(jìn)行調(diào)用：
Var
     Tclass:CTestclass;
     這樣一來就可以如當(dāng)前文件中的窗體類一樣調(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://你要增加的類的引用聲明

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
     Tclass.Create;
     Tclass.SetText('這是一個(gè)類的測(cè)試');
     showmessage(Tclass.GetText); file://此處是對(duì)你自己寫的類的一個(gè)測(cè)試
end;

end.

好了，在你的計(jì)算機(jī)中輸入完上面的代碼后，運(yùn)行試一試吧。這里只是對(duì)庫(kù)單元的引用舉了一個(gè)簡(jiǎn)單例子，關(guān)于詳細(xì)寫法請(qǐng)參看相關(guān)書籍中對(duì)庫(kù)單元及類編程的講述。