Forward Deklaration

[barnti]

Hallo,

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

Delphi-Quellcode:

unit InterfaceClass;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs;

type
  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;

Zwei der drei Deklarationen nehmen Bezug aufeinander(TDatabase und TDBComponentFactory). Wie mache ich denn hier ein Forward-Daklaration?

[Steve]

Zitat:

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 :dance:

[barnti]

Hi,

das war ja gar nicht so schwer!? :oops:
Danke Steve!!

[Steve]

Nix zu danken ;)

Gruß
Stephan :dance: