Klassenzyklus

[fiasko]

Hallo,

ich hab ein kleines Problem mit meinen Klassendefinitionen, hier die wichtigsten Typedef Ausschnitte:

Delphi-Quellcode:

type
  TFCTList = class(TList)
  public
    function Add(Item: TClientThread): Integer;
  end;

  TAcceptThread = class(TThread)
  protected
    FreeList : TFCTList;
  end;

  TClientThread = class(TThread)
  private
    AcceptThread: TAcceptThread;
  protected
    constructor Create(AThread: TAcceptThread; sock: TSocket);
  end;

Wie man sieht sind die fast zyklich abhängig. Der Compiler fliegt natürlich immer in der 4. Zeile raus... hat einer ne Idee wie man das elegant lösen könnte, ohne das die ganze Klassenhierarchie den Bach runter geht?!


Thomas

[sakura]

Einfach folgende Zeile direkt hinter die type Zeile einfügen (ein sog. Bekanntmachung einer folgenden Definition)
TClientThread = class;

[fiasko]

Danke, genau sowas hab ich gesucht, die Delphi 5 Hilfe ist da ja nicht gerade sehr Aussagekräftig in Sachen forward Deklarationen...

Thomas

[Christian Seehase]

Moin Thomas,

dazu ein ganz allgemeiner Tip:
Ich weiss ja nicht, welche D5 Version Du hast, aber ab der Professional sind die Sourcen der VCL dabei.
Aus denen kann man sich so manch Interessantes herauslesen.