在课堂上创建父/子关系

Question

我有两个类，一个子类：

type MyChildClass = class
public
parent: ^MyParent;
end;

还有一个父类：

type MyParentClass = class
public
childs: array of ^MyChildClass;
end;

但是，这不起作用，因为只有最后一个声明的类知道另一个。示例：

program Test;

interface

type MyChildClass = class
public
parent: ^MyParentClass;
end;

type MyParentClass = class
public
childs: array of ^MyChildClass;
end;

implementation

end.

这不会编译，因为第 7 行将抛出错误“未声明的标识符 'MyParentClass' 符合预期。使用抽象类只能部分解决问题。我真的很难找到解决方案。也许使用接口会有所帮助？

Answer 1

Pascal 是一种单通道编译语言，因此编译器只扫描一个文件一次：每时每刻都必须知道每个标识符。当您创建循环引用时，就像在这种情况下，您正在引用一个写在之后当前不允许的类。要解决此问题，您需要使用所谓的前向声明，即您向编译器声明（承诺）它会在代码的某处找到此标识符（查看代码，问题1）。

此外，您正在定义多个不同的类型范围（通过多次编写 type）。每个类型作用域都有自己的类型（并且在一个作用域中定义的类型不能被另一个作用域看到），因此，您需要定义一个类型（查看代码，problem2）。 p>

program Test;

interface

type // declare a single type scope (problem 2)
    MyParentClass = class; // this is the forward declaration (problem 1)

    MyChildClass = class
    public
        parent: ^MyParentClass;
    end;

    MyParentClass = class
    public
        childs: array of ^MyChildClass;
    end;

implementation

end.

Answer 2

program Test;

interface
type 
    MyParentClass = class;

    MyChildClass = class
    public
        parent: ^MyParentClass;
    end;

    MyParentClass = class
    public
        childs: array of ^MyChildClass;
    end;

implementation

end.