Problem: Denkblockade bei Klassenbeziehungen

[megaflop]

Hallo!

Ich habe in letzter Zeit etwas mit Direct3D herrumgespielt und angefangen, die Interfaces und verschiedenen Aufgaben in Klassen zu kapseln. Als Unterstes steht natürlich eine Klasse, die die beiden Interfaces IDirect3D9 und IDirect3DDevice9 verwaltet.

Delphi-Quellcode:

type
  TDirect3D9 = class
    {...}
    FD3D9: IDirect3D9;
    FDevice9: IDirect3DDevice9;
    {...}
  end;

Die damit zusammenhängenden Aufgaben sind natürlich recht umfangreich: Texturen, Lichter, Materialien, Textdarstellung ... Das alles in einer Klasse unter zubringen kommt nicht in Frage (Jede Klasse hat genau eine Aufgabe!). Es liegt also nahe, für jede dieser Aufgaben eine Control-Klasse zu schreiben, die dann in TDirect3D9 eingebettet werden. Jede dieser Klassen braucht natürlich wiederum Zugriff auf TDirect3D9 (bzw die Interfaces darin). Eine "Kreisbeziehung"

Dieses Problem hab ich wie folgt gelöst:

Delphi-Quellcode:

type
  TDirect3D9 = class;

  TD3D9TextureManager = class
    {...}
    FD3D9: TDirect3D9; //Wird vom Constructor erwartet und hier abgelegt
    {...}
  end.

  {...}

  TDirect3D9 = class
    {...}
    FD3D9: IDirect3D9;
    FDevice9: IDirect3DDevice9;

    FTextureManager: TD3D9TextureManager;
    {...}
  end;

Das funktioniert genau so, wie ich es erwartet habe. ( Ist es ein guter Ansatz oder entstehen so irgendwo Speicherlöcher / verstößt es gegen grundlegende Regeln? ) Das Paket nimmt jedoch schon jetzt ziemlich große Ausmaße an (Jede Control-Klasse benötigt ja noch weitere Klassen, der TextureManager zB. eine TD3D9Texture).
Gibt es irgendeine Möglichkeit, wie ich die Control-Klassen in anderen Units unterbringe, die ich dann über die uses-Klausel einbinde? Ich finde da keinen Paskal-konformen Weg :/ Das Problem ist halt, das die Klassen voneinander abhängen. Die Units würden also auch voneinnander abhängen ( = eine Unit steht in der uses-klausel der jeweils anderen) und das geht nun mal überhaupt nicht.

[DeddyH]

Das machst Du schon ganz richtig.

Zitat:

TDirect3D9 = class;

Das hier ist eine Forward-Deklaration, die genau in Deinem Fall benötigt wird. Und dass sich Units nicht gegenseitig einbinden können, stimmt so nicht. Wenn die erste die zweite im interface- und die zweite die erste im implementation-Abschnitt einbindet, funktioniert das wunderbar.

[mkinzler]

Aber besser gemeinsam genutztes in weitere Unit auslagern

[Namenloser]

Ich denke, das Problem ist folgendes (hatte ich auch mal): Forward-Deklarationen funktionieren nicht Unit-übergreifend.

Deswegen bin ich auch dazu übergegangen, wieder viel in eine Unit zu packen. Man spart sich damit unter Umständen einiges an Arbeit, und die Übersicht geht (bis jetzt) dank der "Struktur-Ansicht" auch nicht verloren. Wenn man sich mal die Delphi-Units anschaut, oder Bibliotheken wie PNGImage, sieht man, dass die ja auch nicht gerade schlank sind. Und verglichen damit sind meine Units imemr noch winzig.

[megaflop]

Zitat von DeddyH:

Wenn die erste die zweite im interface- und die zweite die erste im implementation-Abschnitt einbindet, funktioniert das wunderbar.

Wenn ich also die Klasse TDirect3D9 in UnitA erstelle und in UnitB die forward-Deklaration dieser Klasse setze + uses-Klausel in den implementation-Abschnitt, dann ist diese Klasse in UnitB nicht vollständig deklariert und Delphi komplimiert's nicht. Schade :/

Zitat von NamenLozer:

Forward-Deklarationen funktionieren nicht Unit-übergreifend.

Dann wird es wohl nicht funktionieren. Die Unit ist zwar noch nicht besonders groß, aber das wächst hier so mit der Zeit

Nun gut, danke für eure Antworten!