package的创建安装和使用

关于包，主要有一下几个问题：

包的创建，包的安装，包的使用；

1、包的创建：

  file->new->other->package，好，就这样，一个包的雏形就创建好了，现在你就可以往里头添加东西了，主要包括两个方面的东西，一个是requires 一个是contains，其中：

   #requires:用来指定这个包需要使用到的一些外部包的名字；

   #contains:指定这个包需要包含的unit的名字；

2、包的安装：

  在编辑好包的requires和contains的条目之后，先点击compile，再点击install按钮,ok,你已经在ide中安装了一个你自己的包；

3、包的使用：

  参考下面的  代码3

需要注意的地方：

   a.一个包不能出现另外一个包的contains里头；

   b.在编译的时候，被包含在contains里头的单元，以及被这些包含在contains里头的单元uses的单元都会被编译进这个包里头；当然了，这里指的是用户自定义的单元；

   c.如果有多个package将要被同一个应用application（包括delphi ide）使用，那么些package里头不应该有相同的unit，无论他们是被直接的还是间接的（所谓的间接就是b中的那种情况）被包含进去的；这就是说，如果你的创建一个package，这个contains了一个vcl里头的unit，那么你就不能将这个package安装到ide里头去。那么如果你一定要用到一个已经被打包的unit的话，你可以将这个unit所在的package加入到requires中去；

下面是一个例子：

我们新建一个包，这个包的代码如下：

代码1

package IAmTestingPackage;

{$R *.res}

{$ALIGN 8}

{$ASSERTIONS ON}

{$BOOLEVAL OFF}

{$DEBUGINFO ON}

{$EXTENDEDSYNTAX ON}

{$IMPORTEDDATA ON}

{$IOCHECKS ON}

{$LOCALSYMBOLS ON}

{$LONGSTRINGS ON}

{$OPENSTRINGS ON}

{$OPTIMIZATION ON}

{$OVERFLOWCHECKS OFF}

{$RANGECHECKS OFF}

{$REFERENCEINFO ON}

{$SAFEDIVIDE OFF}

{$STACKFRAMES OFF}

{$TYPEDADDRESS OFF}

{$VARSTRINGCHECKS ON}

{$WRITEABLECONST OFF}

{$MINENUMSIZE 1}

{$IMAGEBASE $40000000}

{$IMPLICITBUILD OFF}

requires

  rtl,

  vcl;

contains

  ForTestPackage in 'ForTestPackage.PAS';

end.

我们看到包里头contains了一个叫做ForTestPackage 的单元；

代码2：

unit ForTestPackage;

interface

uses

  SysUtils,Dialogs,ForTestUses;

type

  TForTestPackage = class(TObject)

  public

    procedure show;

  end;

implementation

{

******************************* TForTestPackage ********************************

}

procedure TForTestPackage.show;

begin

  showmessage('i am in the package,i am contains directly');

end;

end.

上面的代码的uses语句中包含了ForTestUses单元；

代码3：

unit ForTestUses;

interface

uses

  SysUtils,Dialogs;

type

  TForTestUses = class(TObject)

  public

    procedure Show;

  end;

implementation

{

********************************* TForTestUses *********************************

}

procedure TForTestUses.Show;

begin

  showmessage('in am contained indirectly');

end;

end.

然后我们对package进行编译并安装，发现虽然ForTestUses没有明确的出现在package的contains里头，但是它也一样的被编译进了package；下面我们通过一个小程序来验证一下；

程序的代码如下：

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,FortestPackage,Fortestuses;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  ForTestUses:TForTestUses;

  ForTestpackage:TForTestPackage;

begin

  ForTestUses:=TForTestUses.Create;

  ForTestUses.Show;

  ForTestUses.Free;

  fortestpackage:=TForTestpackage.Create;

  ForTestpackage.show;

  Fortestpackage.Free;

end;

end.

如果ForTestUses没有被编译进package里头，那么在unit1的uses语句中添加ForTestUses应该是会出错的，可是现在没有，说明它确实是被添加到IAmTestingPackage这个package里头了；