Kreuzreferenz zwischen Objekten

[Komoluna]

Liebes Forum,

ich habe 2 Units, die 2 verschiedene Klassen implementieren, die beide eine Referenz des anderen Objekts beinhalten sollen.

Also so:
Unit 1:

Code: Alles auswählen

unit a;
{$mode objfpc}{$H+}  
interface
uses ...;
type
TKlasseA = class
Referenz: TKlasseB;
end;
interface
[...]
end.

Unit 2:

Code: Alles auswählen

unit b;
{$mode objfpc}{$H+}  
interface
uses ...;
type
TKlasseB = class
Referenz: TKlasseA;
end;
interface
[...]
end.

leider kann man nicht einfach die Units in uses Eintragen, da der compiler über eine "circular reference between a and b" beschwert.

Wie kann man das Problem am besten lösen?


MFG

Komoluna

[Mathias]

Und wen du die Unit im interface Teil deklarierst, geht das auch nicht ?

[Komoluna]

Meinst du mit Unit Deklaration

Code: Alles auswählen

unit a;

? Das muss doch (oder program) immer ganz oben stehen oder?

MFG

Komoluna

[m.fuchs]

Wie kann man das Problem am besten lösen?

Das kommt darauf an, was das eigentliche Ziel ist. Je nachdem rät man zu unterschiedlichen Lösungen. Worum geht es denn genau?

[marcov]

Es kann prinzipiell nicht, hat mit Unit System zu tun. (das Modell wie Pascal mehrere Quellen automatisch verwaltet)

Mögliche Lösungen:

- Alles in einen Unit werfen. Dann kann mit xx =class; eine Klasse voraus deklarieren.
- Vererbung, eine basis Klasse für einer der Klassen deklarieren in ein drittes Unit, und die in beide Units importieren.
- Einfachweg ein Referenz TObject oder so machen, und im Implementation typecasten nach richter typ