Правильное расположение классов

[PaHaNjkee]

Привет, друзья. Возникла такая проблема, что есть несколько классов. Один запускает другой и передаёт в параметрах себя. Соответственно второй исполняется и меняет значение в первом. Всё логично, но из-за расположения в коде, один не видит другого и ругается "Undeclared identifier". Какое может быть решение данной проблемы?

TTask = class
  private
    .......
    fMainThread: TTasksThread; // тут ошибка. класс расположен выше класса потока
    .......
  end;

Класс задания. Запускает поток на исполнение

TTasksThread = class(TThread)
  private
    .......
    fTask: TTask;
    .......
  protected
    procedure Execute; override;
  public
    constructor Create(aList: TAccountsList; aUsingProxys: Boolean; aTask: TTask);
  // При создании потока передается параметр в виде указателя на задание, чтобы в дальнейшем менять в нём параметры
   .......
  end;

Каков выход из данной ситуации?

[p51x]

http://docwiki.embarcadero.com/RADSt...bjects_(Delphi)
Forward Declarations and Mutually Dependent Classes

[Serge_Bliznykov]

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

Каков выход из данной ситуации?

https://stackoverflow.com/questions/...asses/13005810

type

TTasksThread = class; (* forward declaration *)
 
TTask = class
  private
    .......
    fMainThread: TTasksThread; // тут ошибка. класс расположен выше класса потока
    .......
  end;

TTasksThread = class(TThread)
  private
    .......
    fTask: TTask;
    .......
  protected
    procedure Execute; override;
  public
    constructor Create(aList: TAccountsList; aUsingProxys: Boolean; aTask: TTask);
  // При создании потока передается параметр в виде указателя на задание, чтобы в дальнейшем менять в нём параметры
   .......
  end;