[dmdx]

Всем привет. Народ подскажите как можно использовать этак называемые ссылки? попробую объяснить на примере.

Есть Класс 1 и Класс 2. дык вот если использовать Класс2 в Класс1 то надо класс 2 объявлять выше чем Класс 1.

Код:

 unit ClassTest;
uses Classes;
...
type
 TClass2 = class;
 ...
end;
 TClass1 = class;
 ...
 SubClass : TClass2;
 ...
end;

Если объявить наоборот то класс 1 не найдет класс 2 и выдаст ошибку

Код:

 unit ClassTest;
uses Classes;
...
 TClass1 = class;
 ...
 SubClass : TClass2;
 ...
end;

type
 TClass2 = class;
 ...
end;

Можно ли где нить в самом верху объявлять ссылки или указатели на классы что ты не париться с положением объявления классов. у меня их 13 и будет больше. Грубо что бы второй вариант не выдавал ошибки?

[lmikle]

можно использовать конструкцию TClass2 = class; - просто объявление, что TClass2 есть класс, который описан ниже.

Тогда код:

Код:

type
  TClass2 = class;

  TClass1 = class
     FClass2 : TClass2;
   ...
  end;

  TClass2 = class
   ...
  end;

будет работать.

[dmdx]

Большое спасибо