假设我开发了多个文档 A.pas, B.pas ... 在 A.pas 中有一个类(TFoo)的实例 foo，例如

// A.pas
...
var
foo :TFoo;
...
foo := TFoo.Create; // initialization here
...

现在，在 B.pas ， C.pas 中的class都需要使用 A.pas 中的foo，我现在的做法是 将 A.pas 中的 foo 传给 B.pas 和 C.pas 中的 class，使得它们可以引用 foo。但这样做不方便。C/C 中可以使用extern来实现各个文件之间的共享，请问Delphi中怎样最方便实现各文件之间的共享变量？

谢谢

// a.pas

unit a;
interface
uses
type
TFoo = Class
private
public
end;

var
foo : TFoo; // before implementation

implementation

initiallization
foo := tfoo.create;

finallization
foo.free;

// b.pas
unit b;
interface
uses
.................., a;

type

// c.pas
unit c;
interface
uses
................., a;

//這樣 b, c 可 Call a.pas 的 globe object

// a.pas

unit a;
interface
uses
type
TFoo = Class
private
public
end;

var
foo : TFoo; // before implementation

implementation

initiallization
foo := tfoo.create;

finallization
foo.free;

// b.pas
unit b;
interface
uses
.................., a;

type

// c.pas
unit c;
interface
uses
................., a;

//這樣 b, c 可 Call a.pas 的 globe object

感谢您的回复，你给的代码可以用:) 但如果是DLL， a.pas 换成 a.dpr 而且所有DLL接口函式写在其中，那么怎样在b.pas, c.pas中使用uses?

再次感谢