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里头了；