Наследование конструкторов

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

Наследование конструкторов

Сообщение Climber » 07.10.2010 13:45:07

Подскажите, как правильно, а то я совсем запутался. У меня есть последовательность классов, которые наследуются друг от друга. Выглядит примерно так: у классов TMyClass и TMyClass1 в конструктор передается по одному параметру, у классов TMyClass2 и TMyClass3 - по два. Мне нужно, чтобы при создании экземпляра класса 3 выполнились все 4 конструктора по очереди. Я правильно написал?
Код: Выделить всё
type

  { TMyClass }

  TMyClass = class
    constructor Create (a: integer); virtual;
  end;

  { TMyClass1 }

  TMyClass1 = class (TMyClass)
    constructor Create(a: integer); override;
  end;

  { TMyClass2 }

  TMyClass2 = class (TMyClass1)
    constructor Create(a, b: integer); virtual;
  end;

  { TMyclass3 }

  TMyclass3 = class (TMyClass2)
    constructor Create(a, b: integer); override;
  end;

implementation

{ TMyClass }

constructor TMyClass.Create(a: integer);
begin

end;

{ TMyClass1 }

constructor TMyClass1.Create(a: integer);
begin
  inherited Create(a);
end;

{ TMyClass2 }

constructor TMyClass2.Create(a, b: integer);
begin
  inherited Create(a);
end;

{ TMyclass3 }

constructor TMyclass3.Create(a, b: integer);
begin
  inherited Create(a, b);
end;

Climber
постоялец
 
Сообщения: 415
Зарегистрирован: 03.06.2007 20:09:57
Откуда: Москва

Re: Наследование конструкторов

Сообщение Mr.Smart » 07.10.2010 13:55:29

Совершенно верно :wink:
Mr.Smart
долгожитель
 
Сообщения: 1796
Зарегистрирован: 29.03.2008 01:01:11
Откуда: из леса!


Вернуться в Обучение Free Pascal

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

Рейтинг@Mail.ru
cron