Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.25;
Скачать: CL | DM;

Вниз

как перекрыть конструктор Create   Найти похожие ветки 

 
pound ©   (2007-03-01 18:25) [0]

Подскажите, как перекрыть конструктор Create.
type
 TMyType  = class(TComponent)
 public
   constructor Create; override;
 end;

implementation

{ TMyType }

constructor TMyType.Create;
begin
 inherited Create; или  inherited Create(Owner);
 ...
end;
Компилятор: [Error] Unit1.pas(14): Declaration of "Create" differs from previous declaration.
И ещё я хотел бы ввести в конструктор Create параметр типа:
type
 TMyType  = class(TComponent)
 public
   constructor Create(s: string); override;
   Procedure MyOpen(s: string);
 end;

implementation

{ TMyType }

constructor TMyType.Create(s: string);
begin
 inherited Create;
 MyOpen(s);
 ...
end;


 
Ega23 ©   (2007-03-01 18:26) [1]

override убери


 
Аноним   (2007-03-01 21:00) [2]

TMyType  = class(TComponent)
public
  constructor Create(AOwner: TComponent); override;
end;

ps
не надо изменять прототип конструктора компонета
ИБо, брошенный на форму в дезайн тайме, в ран тайме этот другой конструктор никто не вызовет

ИЛи используй стандартный конструктор, а всякие таам s: string организовывй в виде свойств
или меняй предка


 
Kolan ©   (2007-03-01 21:13) [3]

> constructor Create(s: string); override;

может сделать overload; консруктор ?


 
Аноним   (2007-03-01 21:23) [4]


> Kolan ©


> может сделать overload; консруктор ?


Не верю, что такое может понадобиться в реальной жизни применителько к компоненту.
Приведите пример


 
Kolan ©   (2007-03-01 21:29) [5]

Да с  "компонентом" плохо выходит, неучёл.

А вот с прямым наследником TObject.
constructor Create(); oveload; - тут s по умолчанию.
constructor Create(s: string); overload; a тут заданое.


 
Аноним   (2007-03-01 21:34) [6]


> Kolan ©  

Ну про TObject никто и не спорит )



Страницы: 1 вся ветка

Текущий архив: 2007.03.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
15-1172660033
Сергей М.
2007-02-28 13:53
2007.03.25
FreeWare-софт для организации аудиоконференции в LAN


6-1160254533
H@ns
2006-10-08 00:55
2007.03.25
Маска и широковещательный адрес.


3-1167148645
V-A-V
2006-12-26 18:57
2007.03.25
Можно ли восстановить базу?


4-1163159712
novill
2006-11-10 14:55
2007.03.25
Есть у кого-нибудь заголовки функций gina.dll на Delphi?


2-1172665355
Urfin Juse
2007-02-28 15:22
2007.03.25
"Залипание" окон