Указатели и Self

[Пепел Феникса]

TBaseLocker = class;

TLockBaseKey = class
    private
      pLocker: TBaseLocker;
  end;

TBaseLocker = class
    private
      queList: array of TLockBaseKey;
      queCount: integer;
  end;

предекларирование класса.

[Человек_Борща]

Так как быть с такой штукой?

Вот так:

type
      TExObj = class;
      TBaseObj = class;

   TBaseObj = class
      parent: TExObj;
   end;
   TExObj = class
      child: array of TBaseObj;
   end;

Но бывают и проблемы когда такое в одном модуле не удержать.

[alexprey]

Ого не знал, что так можно, сейчас буду пробовать

[alexprey]

Работает ^^ Спасибо