Überkreuz-Referenz zw. Klassen

[Nic2012]

Ich habe in 1 Unit (D7) die 2 folgenden Klassen deklariert:

Code:

type
  TDevice = class
  public
    ipcon: TIPConnection;
  end;
type
  TIPConnection = class
  public
    devices: Array [0..255] of TDevice;
  end;
implementation

Das funktioniert so nicht, da TDevice die Klasse TIPConnection noch nicht kennt. Wie könnte man das lösen, aber die beiden Refrenzen behält ?

[wicht]

Mit einer sogenannten Forward-Deklaration. Ich glaube jedenfalls, dass es so heißt:

Delphi-Quellcode:

type
  TIPConnection = class; // <<------

  TDevice = class
  public
    ipcon: TIPConnection;
  end;

  TIPConnection = class
  public
    devices: Array [0..255] of TDevice;
  end;
implementation

HTH

[himitsu]

Zitat von wicht:

Forward-Deklaration

Jupp, nennt sich so.


Und zu beachten ist, daß es sich nur um einen Type-Block handelt.
Die Forward-Deklaration und die eigentliche Deklaration müssen Beide im selben Block stehen. (und demnach auch innerhalb der selben Unit)

[Nic2012]

Danke, habs sofort umgesetzt und klappt prima.
Letzte Frage: Wie deklariere ich Konstanten, die z.B. nur für die Klasse TDevice gültig sein sollen ?

[mkinzler]

Direkt nicht. Du kannst diese aber mit entsprechenden Prefixen versehen

[himitsu]

Ab Delphi 2006 / Turbo Delphi, kann man Typen und Constanten innerhalb einer Klasse definieren.

Delphi-Quellcode:

type
  TMyClass = class
    const 
      X = 3;
    type 
      T = Byte;
  end;

Wegen der Übersichtlichkeit lege ich mir dafür aber jeweils eigene Sichtbarkeitsbereiche an

Delphi-Quellcode:

type
  TMyClass = class
  strict private const 
    A = 'ganz geheim und nur für TMyClass';
  private const 
    Z = 'abc';
  public const 
    X = 666;
    Y = -7;
  private type 
    TGeheim = record
      i: Integer;
      s: string;
    end;
  public
    constructor Create;
  end;

Intern als X nutzbar und extern als TMyClass.X (aber nur weil von außen sichbar, da Public)

[shmia]

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;