VPF::Abstract Error в родительском классе

Keeper89

Дата 13.10.2009, 14:56 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 20
Всего: 58

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

Имеется 4 класса:

Код


- A
-- B
----B1
----B2
-- C

Т.е. родительский A, имеет 2 дочерних B и С, а B в свою очередь имеет свои 2 дочерних.

В A имеется следующий абстрактный метод:

Код


function Valid(const Name, Path: AnsiString;
                      var mes: AnsiString): Boolean; virtual; abstract;

реализуемый только в B1, B2 и C, в B он остается абстрактным для реализации в дочерних классах.

---

Проблема в следующем. Класс A содержит процедуру:

Код


procedure A.Add(const Name, Path: AnsiString);
begin
  // Добавляем закладку

  if Valid(Name, Path, mes) then
    ...
end;

который ссылается на реализованный Valid в потомках.
При попытке добавить записать (вызвать Add) у классов B1, B2 выскакивает EAbstractError, хотя в B1 и B2 метод Valid имеется.

---

Вот, в чем может быть ошибка?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CodeMonkey

Дата 13.10.2009, 15:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Забыли override?

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Keeper89

Дата 13.10.2009, 15:53 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 20
Всего: 58

в B1, B2 и C override стоит:

Код


function Valid(const Name, Path: AnsiString;
                     var mes: AnsiString): Boolean; override;

в B объявление такое же как и в A.

Это сообщение отредактировал(а) Keeper89 - 13.10.2009, 15:57

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CodeMonkey

Дата 13.10.2009, 16:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Возможно криво создали класс.
Конструктор виртуальный?

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

bems

Дата 13.10.2009, 17:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Присоединяюсь. Похоже что создан экземпляр с абстрактным методом.

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

Обижено школьников: 8

Keeper89

Дата 13.10.2009, 22:39 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 20
Всего: 58

CodeMonkey,
bems,
если я правильно понял - как раз это я и сделал.

Классы по очереди:

A:

Код


  A = class(TObject)
    protected
      function Valid(const Name, Path: AnsiString;
                     var mes: AnsiString): Boolean; virtual; abstract;
    public
      constructor Create();
      procedure Add(const Name, Path: AnsiString);
  end;

Код


  B = class(A)
    public
      constructor Create(); overload;
      constructor Create(fsFavsCur: TNonSysFavorites); overload;
      constructor Create(lvFavs: TListView;
                         editMode: Boolean = False); overload;
      procedure Assign(fsFavsCur: TNonSysFavorites); overload;
      procedure Assign(lvFavs: TListView;
                       editMode: Boolean = False); overload;
      function Valid(const Name, Path: AnsiString;
                     var mes: AnsiString): Boolean; virtual; abstract;
  end;

B1,B2:

Код


  B1 = class(B)
    public
      function Valid(const Name, Path: AnsiString;
               var mes: AnsiString): Boolean; override;
  end;

Код


  C = class(A)
    public
      constructor Create();
      function Valid(const Name, Path: AnsiString;
               var mes: AnsiString): Boolean; override;
  end;

Это сообщение отредактировал(а) Keeper89 - 13.10.2009, 22:42

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

bems

Дата 13.10.2009, 22:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

ааа.
Так у тебя B.Valid скрывает A.Valid.
В В1 и В2 ты перекрываешь скрывающий из B, а самый первый из А так и остается абстрактным. И он же вызывается.
Ты что хотел этим добиться? Если я правильно понял, нужно убрать объявление из В

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

Обижено школьников: 8

Keeper89

Дата 13.10.2009, 23:20 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 20
Всего: 58

Цитата(bems @ 13.10.2009, 23:53

)

Ты что хотел этим добиться?

В каждом дочернем классе я хотел сделать свой метод проверки Valid (в B1, B2 и C), в родителях же он просто декларируется.

В этом случае просто убрать абстрактное объявление Valid в B? Может можно еще что-то улучшить в структуре классов?

Это сообщение отредактировал(а) Keeper89 - 13.10.2009, 23:21

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

bems

Дата 14.10.2009, 00:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Keeper89 @ 13.10.2009, 23:20

)

В этом случае просто убрать абстрактное объявление Valid в B?

ну да. А разве компилятор ворнинга не выдал?

Цитата(Keeper89 @ 13.10.2009, 23:20

)

Может можно еще что-то улучшить в структуре классов?

ну если у потомков будут добавляться новые свойства то наверное Assign должен тоже быть виртуальным

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

Обижено школьников: 8

Romikgy

Дата 14.10.2009, 10:26 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

имхо

Код


B = class(A)
    public
      constructor Create(); overload;
      constructor Create(fsFavsCur: TNonSysFavorites); overload;
      constructor Create(lvFavs: TListView;
                         editMode: Boolean = False); overload;
      procedure Assign(fsFavsCur: TNonSysFavorites); overload;
      procedure Assign(lvFavs: TListView;
                       editMode: Boolean = False); overload;
      function Valid(const Name, Path: AnsiString;
                     var mes: AnsiString): Boolean; overload;
  end;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Keeper89

Дата 14.10.2009, 11:03 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 20
Всего: 58

bems, все получилось, спс!

Цитата(bems @ 14.10.2009, 01:41

)

А разве компилятор ворнинга не выдал?

Выдавал, я не заметил: [DCC Warning] W1010 Method 'Valid' hides virtual method of base type 'A'

Цитата(bems @ 14.10.2009, 01:41

)

ну если у потомков будут добавляться новые свойства то наверное Assign должен тоже быть виртуальным

Учту, хотя вряд ли будут еще дочерние классы.

Исходя из исправления вопрос: получается, что виртуально-абстрактный метод реализуется только в последнем дочернем классе, а во всех остальных кроме базового даже не декларируется?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

bems

Дата 14.10.2009, 16:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Keeper89 @ 14.10.2009, 11:03

)

Выдавал, я не заметил: [DCC Warning] W1010 Method 'Valid' hides virtual method of base type 'A'

Нельзя такого незамечать. Этот ворнинг говорит что ты или должен указать override (это тот же метод) или reintroduce (это новый метод, ты действительно хочешь скрыть унаследованый)

Цитата(Keeper89 @ 14.10.2009, 11:03

)

получается, что виртуально-абстрактный метод реализуется только в последнем дочернем классе, а во всех остальных кроме базового даже не декларируется?

не обязательно в последнем дочернем. Это значит что после того как ты задекларировал его как абстрактный, новая декларация нужна только там, где ты хочешь его перекрыть (не обязательно в последнем и не обязательно один раз)

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

Обижено школьников: 8

Keeper89

Дата 14.10.2009, 20:53 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 20
Всего: 58

bems, ок, спасибо!

З.Ы. Assign пока не менял, в потомках он не переопределяется.

Это сообщение отредактировал(а) Keeper89 - 14.10.2009, 20:55

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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