Перегрузка конструкторов

← →
Индеец © (2009-04-20 09:03) [0]

Здравствуйте, вот есть такой класс:
T1=class(TPersistent) public constructor create;virtual; .........
А хотелось бы в нем реализовать 2 конструктора: что- то вроде
T1=class(TPersistent) public constructor create;virtual; constructor create (sender:T1);..... .........
Вот вопрос как правильно объявить конструктор ?

← →
Б (2009-04-20 09:06) [1]

Override;

← →
Индеец © (2009-04-20 09:08) [2]

пробовал
T1=class(TPersistent) public constructor create;virtual; constructor create (sender:T1);override; .........
E2170 Cannot override a non-virtual method

← →
Сергей М. © (2009-04-20 09:16) [3]

;virtual; overload;

override - это директива перекрытия твоего виртуального метода в наследниках твоего класса.

← →
Индеец © (2009-04-20 09:23) [4]

> ;virtual; overload;
>
> override - это директива перекрытия твоего виртуального
> метода в наследниках твоего класса.

Написал так:
T1=class(TPersistent) public constructor create;virtual; constructor create (sender:T1);virtual;overload; ...........
E2254 Overloaded procedure "create" must be marked with the "overload" directive

← →
Индеец © (2009-04-20 09:24) [5]

Получилось так:
T1=class(TPersistent) public constructor create;overload;virtual; constructor create (sender:Tlxtclass);overload;virtual; ........

← →
Palladin © (2009-04-20 11:51) [6]

reintroduce

← →
Б (2009-04-20 12:37) [7]

> Б (20.04.09 09:06) [1]
> Override;

Перепутал с директивой перезагрузки: overload;

← →
Плохиш © (2009-04-20 15:05) [8]

Хм, а в чём смысл виртуальности у конструктора?

← →
Ega23 © (2009-04-20 15:31) [9]

> Хм, а в чём смысл виртуальности у конструктора?

TBaseObject = class (TObject) public constructor Create; virtual; end; TFirstObject = class (TBaseObject); TSecondObject = class (TBaseObject); TBaseObjectClass = class of TBaseObject; function CreateObject(ObjectClass : TBaseObjectClass) : TBaseObject; begin Result := ObjectClass.Create; end;

Теперь перекрываешь конструкторы TFirstObject и TSecondObject - и они отрабатывают при вызове CreateObject(TFirstObject) или CreateObject(TSecondObject)

← →
Palladin © (2009-04-20 16:15) [10]

> Плохиш © (20.04.09 15:05) [8]

хо хо... на них, виртуальных конструкторах, строится вся VCL... в купе с понятием того что класс сам по себе уже объект

порой у меня возникает чувство, что не VCL писали на Делфи, а Делфи писали для VCL :)

> Хм, действительно, у компонентов конструкторы виртуальные
> :-)

Ну правильно, а как ты иначе создавать из списка будешь?

Перегрузка конструкторов Найти похожие ветки