如何在一个Delphi程序中一次性创建并初始化两个完全相同的自定义类实例？

本文共计258个文字，预计阅读时间需要2分钟。

这是我的问题——非常快：var c1: TClass1; c2: TClass2; begin c1 :=c1.Create; c2 :=c2.Create; //Exception; end; 这两个类都继承自TObject。如果它们不继承，那么我无法在类中使用调试器，所以我必须使用TObject。我

这是我的问题 – 很快：

var c1:TClass1; c2:TClass2; begin c1 := c1.Create; c2 := c2.Create; //<<Exception; end;

这两个类都继承自TObject.如果它们不继承,那么我不能在类中使用调试器,所以我必须使用TObject.

我真正的问题是我必须在第一个类的实例中的函数内创建第二个类的实例.当我在其中时,我无法找到释放第一个类的实例的方法.

看来我不能有多个继承自TObject的类,那是问题吗？

如何修复我的代码,任何建议？

提前致谢！

正确的语法应该是：

C1 := TClass1.Create; C2 := TClass2.Create;