请问：怎样在一个unit中定义一个全局函数？

Question

我定义格式如下
unit hanshu;interfaceimplementation
function 名称（）：string;
begin
.......;
......;
end;end.
我在调用程序中也加了 uses hanshu;了，可是系统就是不给执行！
是不是还要加什么说明啊？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
//*******************
var i:integer;
//*******************
{$R *.dfm}end.

Answer 2

刚才看错
unit hanshu;interface
function 名称（）：string;implementation
function 名称（）：string;
begin
.......;
......;
end;end.