Problem mit Forward-Deklaration

[rGb]

Hi Jungs ;)

Folgende Situation bereitet mir Kopfzerbrechen:

--------------------------------------------------------------------------
unit NewClasses;

interface

uses
  Classes, Controls, Dialogs, ExtCtrls, Graphics, Types, SysUtils;

type
  TRootClass = class(TObject)
  private
    ObjectMoving: boolean;
    ObjectMoveStartPos: TPoint;
  public
    ClassID: integer;
    Graphic: TImage;
    InputAnchor, OutputAnchor: TRect;
    Input, Output: TLink;
    constructor Create; virtual;
    destructor Destroy; virtual;
    procedure Exec; virtual; abstract;
    function InRect(X, Y: integer; Rect: TRect): boolean; virtual;
    procedure GraphicMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); virtual;
    procedure GraphicMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
    procedure GraphicMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
  end;

  TLink = class(TObject);
  private
    Input, Output: TRootClass;
    StartPos, EndPos: TPoint;
    PenWidth: integer;
    Canvas: TCanvas;
  public
    constructor Create;
    destructor Destroy;
    procedure DrawLink(StartPos, EndPos: TPoint);
    procedure ReDrawLink;
    procedure DeleteLine;
    procedure Send(Sender: TRootClass; Msg: string);
    procedure SetCanvas(x: TCanvas);
    procedure SetInput(x: TRootClass);
    procedure SetOutput(x: TRootClass);
    function ReadInput: TRootClass;
    function ReadOutput: TRootClass;
  end;

implementation

[...]
--------------------------------------------------------------------------

Gibt es einen Weg, mittels dem ich das Objekt TLink in TRootClass verwenden kann, und umgekehrt (TRootClass in TLink)?
Bisher gibt der Compiler nur die Fehlermeldung "Undeclared identifiert: 'TLink'" aus.
Beide Klassen in verschiedene Units zu packen hat auch keine Abhilfe geschafft, dann kommt der wunderbare "Cross reference"-Fehler.

[Philipp Hug]

Die Forward-Deklaration definierst du so:

type
 TLink = class; //Forward deklaration

  TRootClass = class(TObject)
    Input, Output: TLink ;
  ...
  end;

  TLink = class(TObject)
    Input, Output: TRootClass ;
   ...
   end;

[rGb]

Klasse.. danke :)