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