Как из класса B обратиться к классу A, владеющему классом B?

[Ferrum26]

Есть 2 класса

type

  A = class
  private
    k: integer;
    List : TList;       // лист из экземпляров класа B        
  public   
    procedure Add (ClassB: B);  // процедура добавления в List
  end;

  B = class
  private
  procedure abcdef; // эта процедура требует переменную k класса A которому пренадлежит экземпляр B
  end;

Как оптимальней осуществить задачу?

[psycho-coder]

Если не ошибаюсь, у класса есть свойство Parent или что то в этом роде, если к нему обратится то можно получить доступ к свойствам и методам класса предка. К свойствам и методам в разделе privat может получить только тот класс (наследник) который находится в том же файле что и класс предок

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

сами задайте св-во по типу Parent обозначабщее родителя, иначе никак.

[Ferrum26]

Дело в том что описания классов находятся в разных файлах. Была мысль обьявить в классе B указатель на A, но это невозможно, потому что тогда необходимо будет указать в uses имя файла с классом A, в свою очередь в классе A в uses уже имеется имя файла с классом B. Компилятор естественным образом это отвергает, циркуляция говорит.

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

значит меняйте планировку классов.
ибо если класс B не знает что такое класс A то как он может обратится к члену класса?

[Ferrum26]

Вопрос остается открытым. Оба класса имеют порядка 20 методов и помещать их в один файл очень неудобно. Вопрос довольно редкий потому как оптимальное решение ищу уже месяца 2. Для наглядности приведу пример для чего это нужно: есть класс (родитель) "игрок" его свойства включают в себя: показатели игрока (статистика и всевозможные игровые показатели), различные методы для вычисления этих показателей А ТАКЖЕ список (List) из экземпляров класса "задание". Т.е. список задач для выполнения (что-то типа бота). Класс "задание" тоже имеет свои методы для которых требуются игровые показатели игрока которому принадлежит эта задача. таким образом класс задание может принадлежать только классу "игрок", сам по себе он не может существовать.

[Utkin]

Значит унаследуйся от него.

[Ferrum26]

Не рационально, потому как все экземпляры класса "задание" будут иметь одни и те же значения игровых показателей, а их там огромное количество, и к тому же при создании класса "задание" в конструкторе придется копировать все эти значения. И при изменении этих показателей придется изменять их во всех заданиях

[Sanprof]

Сообщение от Ferrum26

Компилятор естественным образом это отвергает, циркуляция говорит.

А вы непробовали в Обоих файлах сделать так:

unit Class_A;

interface

//uses Class_В; <- не сюда
......

implementation

uses Class_B;<- а вот сюда
....

unit Class_B;

interface

//uses Class_A; <- не сюда
......

implementation

uses Class_A; <- а вот сюда
....

[Stilet]

описания классов находятся в разных файлах.

Ну и что? Uses еще никто не отменял. В модуле второго класса пропиши в uses модуль где первый класс лежит и радуйся, и ессно прикрути Parent свойство или подобное, чтоб из детеныша к родителю можно было добраться.

//uses Class_В; <- не сюда

А почему не сюда?
Типы в interface обьявляются а не в implementation
Uses нужно именно перед type писать