VPF::Не вызывается конструктор потомка

RinOSpro

Дата 13.3.2009, 18:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте smile

.

Я мог бы долго описывать иерархию моих классов но одна схема uml сделает это на много лучше.

Код


  TClassBase = class of TClassBaseA;
const
  BASE_CLASSES: array[0..1] of TClassBase = (TClassA, TClassB);
...
var
  i: Integer;
  LBaseClasses: array[0..1] of TClassBaseA;
begin
  for i := 0 to 1 do
  begin
    LBaseClasses[i] := BASE_CLASSES[i].Create;
    ShowMessage(IntToStr(LBaseClasses[i].A^));
  end;

В таком раскладе вызывается только конструктор TClassBaseA, конструкторы потомков не вызываются.

код прилагается:

Это сообщение отредактировал(а) RinOSpro - 13.3.2009, 18:32

Присоединённый файл ( Кол-во скачиваний: 9 )

Quest.rar 1,62 Kb

Alexeis

Дата 13.3.2009, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

конструкторы виртуальные?

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

RinOSpro

Дата 13.3.2009, 19:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Alexeis - виртуальными их пробывал делать, но в этом случае вызывались, только конструкторы потомков... inherited ставил.

kami

Дата 13.3.2009, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

RinOSpro, просмотрел исходник.
Сразу недочеты:

Код


TClassBaseA = class (TObject)
  private // заменить на protected, чтобы переменная была видна для потомков. Либо в наследниках обращаться к свойству, а не к
//самой переменной. Иначе - AV, так как приватная переменная в классе-родителе<>одноименная приватная переменная в потомке.
    FA: PByte;

TClassBaseB = class (TClassBaseA)
  private // то же самое
    FB: PByte;

Код


TClassBaseA = class (TObject)
    constructor Create; virtual; // во всех наследниках объявить как override, чтобы компилятор перекрыл конструкторы предков.
  end;

Если каждый конструктор объявлять, как virtual, то компилятор "забывает" про то, что нужно вызывать конструктор предка, считая Create первым и единственным в этом классе smile

Christoph

Дата 13.3.2009, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11

а разве без virtual не перекроет коструктор предка?

--------------------

kami

Дата 13.3.2009, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(Christoph @ 13.3.2009, 20:33

)

а разве без virtual не перекроет коструктор предка?

Мне кажется, Вы в этом убедились smile

Почему так происходит со статическими методами, что компилятор даже не включает их реализацию в exe - вопрос вне моей компетенции smile

RinOSpro

Дата 16.3.2009, 10:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(kami @ 13.3.2009, 19:57

)

private // заменить на protected, чтобы переменная была видна для потомков

Эх недоглядел smile

. В общем там еще одна недоглядка была ) в потомке я перекрывал FA и конечно же не выделял для него память, по этому эксепшн. Всем спасибо, проблема решена.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »