Uses. Правильно обьявить 2 класса, чтобы те взаимно использовали друг-друга.

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

Доброго времени суток!

Часте возникает казусная ситуация:

type
  TWorkThread = class(TThread)
  private
    fList: TList; <- - ОН НЕ УМЕЕТ ХРАНИТЬ TOBJECT. 
....

type
  TDataList = class(TList)
  private
.....

TDataList - список приспособленный к хранению обьектов-наследников TObject, и правильным обращением с этими обьектами.

Казус в том, что в tWorkThread нужно указать fList: TDataList; а класс верхнего уровня, не может указывать на класс нижнего уровня.
Но т.к. то, что вверху - не вкурсе, что этот класс расположен внизу, то компилятор благополучно посылает меня лесом.

Есть вариант с разными uses, но тут будет бесконечный цикл, в uses после implementation я не могуобьявить модуль т.к. его не будет видеть описанный выше класс.


Как быть? нЕ первый раз сталкиваюсь, но тут уже точьный тупик.

[Аватар]

type
  TDataList = class;
  TWorkThread = class(TThread)
  private
    fList: TDataList;....
  ...
  end;

  TDataList = class(TList)
  private
.....
  end;

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

Спасибо. Помогло.

[GunSmoker]

Это называется forward-объявление. Ну, чтобы в следующий раз знал, что гуглить.