Einzelnen Beitrag anzeigen

reBrain

Registriert seit: 29. Mär 2014
2 Beiträge
 
#1

Rekursive/Kreishafte Klassenstruktur

  Alt 29. Mär 2014, 18:31
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?
  Mit Zitat antworten Zitat