提问题咯，关于全局函数/过程。。。VC可以用extern，Delphi???????

Question

一般定义在unit中
var
  MainFrm: TMainFrm;
  CardType:Integer;
  Line:array[0..120] of TLine;
  SlicLine:array[0..120] of TSlicStatus;
  Start_Count:Integer;
implementationimplementation前的都是全局变量
其他单元要掉用只须uses 该unit即可

Answer 1

全局函数也可以啊！unit Unit2;interfaceuses
  Dialogs;
procedure Test(s: string);implementationprocedure Test(s: string);
begin
  ShowMessage(s);
end;end.////////////////////////////////////////////////////////////////////
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;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  Test('This is a test!');
end;end.

Answer 2

dancemaple(枫之舞) (  ) 信誉：100  说的对
------------------------------------------------------    上上下下左右左右 ABBA