Object Pascal中能定义静态成员变量吗

Question

在C++中有如下方式申明静态成员变量 static int Count可以使它的所有的对象都共用一个Count，这样我可以知道这个类已经创建了/存在多少个对象（实际上，我需要一个计数器）。但在介绍Delphi书中，有些地方提到静态成员变量是如下申明const Count:Integer这种申明只能说是常态成员变量，不是我希望的静态成员变量。

Answer 1

静态成员变量是没有的！但可以变通
在System.pas单元中，TClass是这样定义的：  
  TClass = class of TObject;  
它的意思是说，TClass是TObject的类。因为TObject本身就是一个类，所以TClass就是所谓的类的类。  
从概念上说，TClass是类的类型，即，类之类。但是，我们知道DELPHI的一个类，代表着一项VMT数据。 
因此，类之类可以认为是为VMT数据项定义的类型，其实，它就是一个指向VMT数据的指针类型！  
在以前传统的C++语言中，是不能定义类的类型的。对象一旦编译就固定下来，类的结构信息已经转化为 
绝对的机器代码，在内存中将不存在完整的类信息。一些较高级的面向对象语言才可支持对类信息的动 
态访问和调用，但往往需要一套复杂的内部解释机制和较多的系统资源。而DELPHI的Object Pascal语言 
吸收了一些高级面向对象语言的优秀特征，又保留可将程序直接编译成机器代码的传统优点，比较完美 
地解决了高级功能与程序效率的问题。  
正是由于DELPHI在应用程序中保留了完整的类信息，才能提供诸如as和is等在运行时刻转换和判别类的 
高级面向对象功能，而类的VMT数据在其中起了关键性的核心作用。有兴趣的朋友可以读一读System单元 
的AsClass和IsClass两个汇编过程，他们是as和is操作符的实现代码，以加深对类和VMT数据的理解。  
有了`类的类型，就可以将类作为变量来使用。可以将类的变量理解为一种特殊的对象，你可以象访问对 
象那样访问类变量的方法。例如：我们来看看下面的程序片段：  
type  
  TSampleClass = class of TSampleObject;  
  TSampleObject = class( TObject )  
  public  
    constructor Create;  
    destructor Destroy; override;  
    class function GetSampleObjectCount:Integer;  
    procedure GetObjectIndex:Integer;  
  end;  var  
  aSampleClass : TSampleClass;  
  aClass : TClass;  在这段代码中，我们定义了一个类TSampleObject及其相关的类类型TSampleClass，还包括两个类变量 
aSampleClass和aClass。此外，我们还为TSampleObject类定义了构造函数、析构函数、一个类方法 
GetSampleObjectCount和一个对象方法GetObjectIndex。  
首先，我们来理解一下类变量aSampleClass和aClass的含义。  
显然，你可以将TSampleObject和TObject当作常量值，并可将它们赋值给aClass变量，就好象将123常量 
值赋值给整数变量i一样。所以，类类型、类和类变量的关系就是类型、常量和变量的关系，只不过是在 
类的这个层次上而不是对象层次上的关系。当然，直接将TObject赋值给aSampleClass是不合法的，因为 
aSampleClass是TObject派生类TSampleObject的类变量，而TObject并不包含与TSampleClass类型兼容的 
所有定义。相反，将TSampleObject赋值给aClass变量却是合法的，因为TSampleObject是TObject的派生 
类，是和TClass类型兼容的。这与对象变量的赋值和类型匹配关系完全相似。  
然后，我们再来看看什么是类方法。  
所谓类方法，就是指在类的层次上调用的方法，如上面所定义的GetSampleObjectCount方法,它是用保留 
字class声明的方法。类方法是不同于在对象层次上调用的对象方法的，对象方法已经为我们所熟悉，而 
类方法总是在访问和控制所有类对象的共同特性和集中管理对象这一个层次上使用的。在TObject的定义 
中，我们可以发现大量的类方法，如ClassName、ClassInfo和NewInstance等等。其中，NewInstance还 
被定义为virtual的，即虚的类方法。这意味作你可以在派生的子类中重新编写NewInstance的实现方 
法，以便用特殊的方式构造该类的对象实例。  
在类方法中你也可使用self这一标识符，不过其所代表的含义与对象方法中的self是不同的。类方法中 
的self表示的是自身的类，即指向VMT的指针，而对象方法中的self表示的是对象本身，即指向对象数据 
空间的指针。虽然，类方法只能在类层次上使用，但你仍可通过一个对象去调用类方法。例如，可以通 
过语句aObject.ClassName调用对象TObject的类方法ClassName，因为对象指针所指向的对象数据空间中 
的头4个字节又是指向类VMT的指针。相反，你不可能在类层次上调用对象方法，象TObject.Free的语句 
一定是非法的。  
值得注意的是，构造函数是类方法，而析构函数是对象方法！  
什么？构造函数是类方法，析构函数是对象方法！有没有搞错？  
你看看，当你创建对象时分明使用的是类似于下面的语句：  
    aObject := TObject.Create;  
分明是调用类TObject的Create方法。而删除对象时却用的下面的语句：  
    aObject.Destroy;  
即使使用Free方法释放对象，也是间接调用了对象的Destroy方法。  
原因很简单，在构造对象之前，对象还不存在，只存在类，创建对象只能用类方法。相反，删除对象一 
定是删除已经存在的对象，是对象被释放，而不是类被释放。  
最后，顺便讨论一下虚构造函数的问题。  
在传统的C++语言中，可以实现虚析构函数，但实现虚构造函数却是一个难题。因为，在传统的C++语言 
中，没有类的类型。全局对象的实例是在编译时就存在于全局数据空间中，函数的局部对象也是编译时 
就在堆栈空间中映射的实例，即使是动态创建的对象，也是用new操作符按固定的类结构在堆空间中分配 
的实例，而构造函数只是一个对已产生的对象实例进行初始化的对象方法而已。传统C++语言没有真正的 
类方法，即使可以定义所谓静态的基于类的方法，其最终也被实现为一种特殊的全局函数，更不用说虚 
拟的类方法，虚方法只能针对具体的对象实例有效。因此，传统的C++语言认为，在具体的对象实例产生 
之前，却要根据即将产生的对象构造对象本身，这是不可能的。的确不可能，因为这会在逻辑上产生自 
相矛盾的悖论！  
然而，正是由于在DELPHI中有动态的类的类型信息，有真正虚拟的类方法，以及构造函数是基于类实现 
的等等这些关键概念，才可实现虚拟的构造函数。对象是由类产生的，对象就好象成长中的婴儿，而类 
就是它的母亲，婴儿自己的确不知道自己将来会成为什么样的人，可是母亲们却用各自的教育方法培养 
出不同的人，道理是相通的。  
正是在TComponent类的定义中，构造函数Create被定义为虚拟的，才能使不同类型的控件实现各自的构 
造方法。这就是TClass创造的类之类概念的伟大，也是DELPHI的伟大。

Answer 2

有解决的方法
INDY中有类似的代码。

Answer 3

我按照 proman 所提示的实现了，相对来说 proman 的方法较简单。