Rekursive/Kreishafte Klassenstruktur

[reBrain]

Hallöchen,

ich habe folgendes Problem, ich habe eine Klasse, welche eine Datei repräsentiert, nun habe ich auch eine Klasse die ein Verzeichnis darstellt, in einem Verzeichnis können auch mehrere Verzeichnisse sein, also ich folgende Struktur möglich:

- Verzeichnis
- - Verzeichnis
- - - Verzeichnis
- - - Datei
- - Verzeichnis
- - Datei
- - Datei

In Delphi sähe die Deklaration in etwa so aus:

Code:

tFile = class (tObject)
end;

tDirectory = class (tObject)
  private
    rDirectory : tDirectoryList; 
end;

tDirectoryList = class ( tObjectList )
end;

Wie man erkennt besteht das Problem in der Verzeichnis-Liste. Der Code würde einen Fehler
erzeugen, da er tDirectoryList nicht kennt. Jetzt könnte man einfach die Liste zu erst definieren,
aber die Liste muss tDirectory kennen. Beides muss sich also gegenseitig kennen.

Wie kann ich dieses Problem umgehen?

[jfheins]

Das nennt sich forward-Deklaration: http://www.delphipraxis.net/101703-f...n-klassen.html

[reBrain]

Genau das habe ich gesucht, danke!