Bei gegenseitig referenzierenden Klassen sollte man versuchen den Konflikt durch Einführung einer weiteren Klasse aufzulösen:
Delphi-Quellcode:
type
TIPConnection =
class
public
property IP:TInAddr;
property Port:Word;
end;
TDevice =
class
public
ipcon: TIPConnection;
end;
TIPConnectionPool =
class(TIPConnection)
public
devices:
Array [0..255]
of TDevice;
end;