怎样统计某个类一共创建了几个对象？

[aaa2520]

动态创建兑现，然后想统计一下一共创建了几个,delphi 怎么实现？

[日立奔腾浪潮微软松下联想]

可以使用类变量，类似全局变量：
type
TTestClass = class
private
class var Count: integer;
//...
end;
然后在构造函数中增加计数，析构函数中减少计数，再增加一个属性或者类属性读取。