不能定义全局的类实例

Question

在相互引用的单元中定义了类,
在主单元中定义了很多的全局变量,
可以在主单元的过程或者函数中,定义类的实例并且初始化,等等操作不知道为什么,不能定义全局 类实例--和那些全局变量放在一起
请高手解答

Answer 1

class function 或 class   procedure;  类方法或函数，与全局函数类似

Answer 2

各单元直接不能循环引用，比如你说的：
unit GlobalDemo;interfaceuses Foo;type
var 
  A: Integer = 3;
  B: Integer = 4;  
  Foo: TFoo;implementationend;
-----------------------------------
unit Foo
//...
uses GlobalDemo;
//...
 TFooClass = class
 //...
 end;
//...

Answer 3

主单元单元…………
type Tfoo=class
……
end;var 
  A: Integer = 3; 
  B: Integer = 4;  
  Foo: TFoo; 
//全局变量部分定义implementation 
uses 引用的其他单元————————————————————————
其他单元implementation 
uses 主单元

Answer 4

4楼的代码到底行还是不行?
 感觉这个 Foo: TFoo; 要报错的
但是放在procedure中为什么又可以?
5楼和4楼的区别在于,类放到主单元了,这个不利于代码的组织,