freepascal.ru

Подскажите, как правильно, а то я совсем запутался. У меня есть последовательность классов, которые наследуются друг от друга. Выглядит примерно так: у классов 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;



Совершенно верно