VPF::Определить класс в иерархии на основании предка

TechnoMag

Дата 14.1.2014, 17:39 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 20.3.2010

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

Код


TGrass = class
  protected
    FPosition: TPoint;
    FLife : integer;
  public
    function GetLife: integer;
    function GetPosition: TPoint;
  end;

  TBush = class (TGrass)
  public
    function DoWith(grass: TGrass; ElementsList: TObjectlist): TGrass;
  end;

  TTree = class (TBush)
  end;

Нужно определить, какой именно потомок передан в метод DoWith:
вызов:

Код


DoWith(Bush, nill);

определение:

Код


    function DoWith(grass: TGrass; ElementsList: TObjectlist): TGrass;
  begin
     if  (grass is TBush) then
       // такой вариант не подходит т.к. условие верно и для потомков после Tbush
  end;

Poseidon

Дата 14.1.2014, 20:06 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

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

Репутация: 53
Всего: 133

Для чего? Что бы потом вызвать метод этого потомка? Так сделай этот метод абстрактным у TGrass и перекрой у потомков. Тогда можно будет сделать так:

Код


function DoWith(grass: TGrass; ElementsList: TObjectlist): TGrass;
begin
  grass.MyMethod
end;

при этом фактически будет вызван метод того потомка, который будет передан.

Еще, как вариант, можно сделать проверку через grass.ClassName

Уточни зачем тебе это. Уверен на 99% что данная задача решается по иному в корне.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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