怎样自定义一个函数单元包供所有其他单元调用?

Question

怎样自定义一个函数单元包供所有其他单元调用?

Answer 1

新建一个Unit，把公共变量和公共函数放在这里面，别的单元使用该单元的函数时，先在该单元的uses中加入公共单元的引用，然后就可以用了。

Answer 2

具体怎样调用呢?
单元一
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  sd: string;
begin
  sd:=IntToStr(DoubleTheValue(123));
  MessageDlg(sd,mtConfirmation, [mbYes, mbNo], 0);
  if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0);
    Close;
  end;
end;end.单元二
unit Unit2;interfaceimplementation
function DoubleTheValue (ss: Integer): Integer;
begin
  ss := ss * 2;      // compiler error
  Result := ss;
end;
end.但是不行?????