Delphi: понимание конструкторов

я хочу понять

• виртуальный
• переопределить
• перегрузка
• восстановить

при применении к конструкторам объектов. Каждый раз, когда я случайно добавляю ключевые слова, пока компилятор не закроется - и (после 12 лет разработки с Delphi) я бы предпочел знать, что я делаю, а не пробовать вещи случайным образом.

учитывая гипотетический набор объекты:

TComputer = class(TObject)
public
    constructor Create(Cup: Integer); virtual;
end;

TCellPhone = class(TComputer)
public
    constructor Create(Cup: Integer; Teapot: string); virtual;
end;

TiPhone = class(TCellPhone)
public
    constructor Create(Cup: Integer); override;
    constructor Create(Cup: Integer; Teapot: string); override;
end;

так, как я хочу, чтобы они вели себя, вероятно, очевидно из заявлений, но:

• TComputer имеет простой конструктор, и потомки могут переопределить это
• TCellPhone есть альтернативный конструктор, и потомки могут переопределить это
• TiPhone переопределяет оба конструктора, вызывая унаследованную версию каждого

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

я хочу понять почему. Исправить это было бы очевидно.

посмотреть также

• Delphi: как скрыть конструкторы предков?
• восстановление функций в Delphi
• Delphi: как добавить другой конструктор к потомку?

Edit: я также ищу, чтобы получить некоторые рассуждения о порядке virtual, override, overload, reintroduce. Потому что при попытке всех комбинаций ключевых слов, количество комбинаций взрывается:

• виртуальная; от перегрузки;
• виртуальная; переопределить;
• переопределение; перегрузка;
• переопределение; виртуальные;
• виртуальная; переопределение; перегрузка;
• виртуальный; перегрузка; переопределение;
• перегрузка; виртуальный; переопределение;
• переопределить; виртуальный; перегрузка;
• override; перегрузка; виртуальный;
• перегрузка; переопределить; виртуальный;
• etc

Edit 2: я думаю, мы должны начать с "возможна ли иерархия объектов?<!-- Если нет, то почему? Например, принципиально ли неправильно иметь конструктор от предка?

TComputer = class(TObject)
public
    constructor Create(Cup: Integer); virtual;
end;

TCellPhone = class(TComputer)
public
    constructor Create(Cup: Integer; Teapot: string); virtual;
end;

//Method Create hides virtual method of base type TComputer:
TCellPhone = class(TComputer)
   constructor Create(Cup: Integer; Teapot: string);  virtual;

//Method Create hides virtual method of base type TCellPhone:
TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer); override;
   constructor Create(Cup: Integer; Teapot: string); overload;  <--------
end;

поэтому сначала я попробую исправление TCellPhone. я начну с случайного добавления overload ключевое слово (я знаю, я не хочу!--17--> потому что это скроет другой конструктор, который я не хочу):

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string); virtual; overload;
end;

но это не удается: Field definition not allowed after methods or properties.

я знаю по опыту, что, хотя у меня нет поля после метода или свойства, если я изменю порядок virtual и overload ключевые слова: Delphi заткнется:

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string); overload; virtual; 
end;

но я все равно получаю ошибку:

метод "Create" скрывает виртуальный метод базового типа "TComputer"

поэтому я пытаюсь удалить оба ключевых слова:

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string);
end;

но я все равно получаю ошибку:

метод "Create" скрывает виртуальный метод базового типа "TComputer"

так я уйти сейчас пытаются reintroduce:

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string); reintroduce;
end;

и теперь TCellPhone компилируется, но это сделало вещи намного хуже для TiPhone:

TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer); override; <-----cannot override a static method
   constructor Create(Cup: Integer; Teapot: string); override; <-----cannot override a static method
end;

как жалуются, что я не могу переопределить их, поэтому я удаляю override ключевые слова:

TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer);
   constructor Create(Cup: Integer; Teapot: string);
end;

но теперь 2-й create говорит, что он должен быть отмечен перегрузкой, что я и делаю (на самом деле я отмечу оба как перегрузку, так как я знаю, что произойдет, если я этого не сделаю):

TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer); overload;
   constructor Create(Cup: Integer; Teapot: string); overload;
end;

все хорошо в . К сожалению, мои реализации не будут работать. Мой единственный конструктор параметров TiPhone не может вызвать унаследованный конструктор:

constructor TiPhone.Create(Cup: Integer);
begin
    inherited Create(Cup); <---- Not enough actual parameters
end;