Wie kann man Klassen über Kreuz benutzen?

[RSE]

Hallo!

Ich möchte folgendes realisieren:

Code: Alles auswählen

Type
  TMyClass = class(TObject)
  private
    Thread: TMyThread;
  end;
 
  TMyThread = class(TThread)
  private
    C: TMyClass;
  public
    constructor Create(CreateSuspended: Boolean; AC: TMyClass);
  end;

Leider finde ich keinen Weg es dem Compiler beizubringen. Das muss doch irgendwie möglich sein, mit irgend einer Form von Forward-Deklaration. Momentan habe ich nur den Workaround mit dynamischen Typecasts gefunden:

Code: Alles auswählen

Type
  TMyThread = class(TThread)
  private
    C: TObject;
  public
    constructor Create(CreateSuspended: Boolean; AC: TObject);
  end;
 
  TMyClass = class(TObject)
  private
    Thread: TMyThread;
  end;
 
implementation
 
constructor TMyThread.Create(CreateSuspended: Boolean; AC: TObject);
begin
  C := AC;
  TMyClass(C).irgendwas;
  ...
end;

Das kann ja eigentlich nicht die einzig machbare Lösung sein.

[pluto]

Du könntest auch noch eine Vorward Defination machen: Einfach die Klasse die du später nutzen möchtest Oben Definieren:
type
TMyClass=class;
so in etwa...

[RSE]

Danke!

Ich wusste, dass das irgendwie gehen muss, aber ich wusste nicht wie die Syntax ist
Klappt einwandfrei!

[pluto]

Die sach hat leider nur einen Hacken, über verschiedene Units geht das so nicht. Alle Klassen müssen also in einer Unit rein...

[RSE]

Das ist ja kein größeres Problem. Höchstens eins der Übersichtlichkeit, aber das ist verschmerzbar. Aber immerhin besser als mit Typecast

[pluto]

Das stimmt auch wieder. Zu not könnte man auch noch inc Dateien benutzen.

[RSE]

Hm, das ist eigentlich eine gute Idee. Die Unit umfasst immerhin inzwischen über 880 Zeilen. Danke für den Tipp!

[pluto]

Bitte !
Ich bin auch erst vor kurtzen darüber gestolpert*G*
Bei meinen Aktuellen Projekt mache ich das im Moment auch so.

Ich glaube das ist vergleichbar mit dem C/C++ Header Dateien....

[mintpc]

Danke auch von mir.

Hatte grad dasselbe Problem und wieder mal hier gefunden!
Perfekt!

mintpc