Forward Deklaration

[Steve]

Zitat von barnti:

Hallo,

ich habe grade das Problem mehrere Klassen in eine Unit zu packen:

Delphi-Quellcode:

type

  TDatabase = class;   // <<--- 
  TPDObject = class;   // <<--- 

  TDBComponentFactory = class (TObject)
  public                                                  // wird erst später deklariert
    function CreateDatabaseComponent(aOwner: TComponent): TDatabase; virtual; 
            abstract;
    function CreatePDObject(Index: INteger): TPDObject; virtual; abstract;
  end;
  
  TDatabase = class (TObject)
  public
    procedure CreateDatabase(aOwner: TComponent; Factory: TDBComponentFactory);
  end;
  
  TPDObject = class (TObject)
  public
    function CreatePDObject(aOwner: TComponent; Factory: TDBComponentFactory): 
            TPDObject;
  end;

Siehe Source

Gruß
Stephan