[Rokuell]

Недавно пришлось использовать предварительное описание класса, столкнулся с таким вот подводным камнем:

Код:

type
  // Предварительное описание
  TTestClass = class;

  ...
  // Здесь описаны другие классы
  ...

  // Полное описание
  TTestClass = class(TObject)
  ...
  end;

Если написано так, то всё работает, однако, если разнести предварительное описание класса и его полное описание по разным секциям type , то компилятор не видит полного описания и выводит ошибки:

[Error] Unit1.pas(19): Type 'TTestClass' is not yet completely defined
[Error] Unit1.pas(25): Identifier redeclared: 'TTestClass'

Вот пример кода, вызывающего ошибку:

Код:

type
  // Предварительное описание
  TTestClass = class;

  // А вот здесь нам захотелось объявить к.л. переменную
var 
  x : integer;

type // <-- Уже другая секция type
  // Полное описание
  TTestClass = class(TObject)
  ...
  end;

Пишу это другим на будущее, просто это такая мелочь, вроде бы всё правильно написано - а компилятор ругается. А когда читал справку, не сразу заметил, что данная особенность там описана (т.к. просто смотрел на пример кода )

A forward declaration must be resolved by a defining declaration of the same class within the same type declaration section.

[NIch]

В любом случае нужно стремиться к не к призвольной структуре кода, а к четкой...т.е. все type вместе, все var вместе и все const вместе...
есть определенные правила которых рекомендуется придерживаться...
http://www.infocity.kiev.ua/prog/del...elphi185.phtml

[PhoeniX]

У меня была несколько иная проблема подобного плана...
Есть основной класс (в отдельном юните), и он должен быть доступен в других юнитах. И есть дополнительные классы, которые использует основной. Они должны быть видимы только "на территории" этого юнита.

Код:

type
  TSomeClass=class; //Предварительное объявление

implementation

type
  TSubClass=class
    ...
  end;
  TSomeClass=class
    ...
  private
    t1: TSubClass;
  ...
  end;

Но так компилятор ругается. Как быть?

[NIch]

А почему не так???

Код:

 
 unit ...
 interface
 uses ...
 type
  TSomeClass=class; //Предварительное объявление
 
  TSubClass=class//Подкласс
   ...
  end;

  TSomeClass=class//Твой класс
   ...
  private
   t1: TSubClass;
  end;

почему в implementation а не в interface так вроде все работает

[Rokuell]

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

А почему не так???

Потому что при таком объявлении класса, он не будет доступен из других модулей.

[NIch]

вот определения interface и implementation...
http://www.delphisources.ru/pages/fa...ation.php.html
http://www.delphisources.ru/pages/fa...rface.php.html
http://www.realcoding.net/article/view/711
Тебе нужно чтобы SubClass был доступен только для SomeClass??? Попробуй SomeClass объявить в interface, а SubClass в implementation..

[PhoeniX]

ругается в строчке объявления переменной - не видит сабкласс...

[NIch]

Код:

type
  TSomeClass=class; //У меня ругается тут
implementation
type
  TSubClass=class
    ...
  end;
  TSomeClass=class
    ...
  private
    t1: TSubClass;
  ...
  end;

Если убрать

Код:

type
  TSomeClass=class;

то все нормально...вопрос, а к чему предварительное определение класса в таком виде, по моему нужно все делать либо в interface или в implementation...

Код:

implementation
type
  TSomeClass=class; //Предварительное определение в implementation

  TSubClass=class
    ...
  end;
  TSomeClass=class
    ...
  private
    t1: TSubClass;
  ...
  end;

Так все в порядке...

[PhoeniX]

Читать научись ёмоё!

Есть основной класс (в отдельном юните), и он должен быть доступен в других юнитах. И есть дополнительные классы, которые использует основной. Они должны быть видимы только "на территории" этого юнита.

Повторю: TSomeClass должен быть виден в других юнитах!

[NIch]

Выражай яснее мысли...

Они должны быть видимы только "на территории" этого юнита

но

Есть основной класс (в отдельном юните)

Так как основной класс увидит подкласс если он видим только на своей территории...

Повторю: TSomeClass должен быть виден в других юнитах!

Код:

type
TSomeClass=class; //Предварительное объявление
implementation
type
  TSubClass=class
    ...
  end;
  TSomeClass=class
    ...
  private
    t1: TSubClass;
  ...
  end;

Предварительное объявление в interface, а "окончательное" в implementation...Предварительно виден везде, а окнчательно виден только из своего модуля...непорядок...

[lmikle]

Ребят, вы просто не понимаете как устроен dcu.
Если в секции interface ты сказал "А", то уж будь любезен сказать "Б", иначе компилятор не может выдать в другие модули информацию. Это не C++, где хидеры отдельно, а реализация отдельно. Если хочешь таких извращений, то пользуй интерфейсы.