[Помидоркин]

Создаю свой класс на основе TComponent (constructor Create(AOwner: TComponent); virtual;) в конструктор нужно добавить еще один параметр

Код:

type
 TFB2File = class(TComponent)
  private
   FFileName: String;
  public
   constructor Create(AOwner: TComponent; const FileName: String); override;
   property FileName: String read FFileName;
 end;

подскажите, пожалуйста, как правльно сделать?

[icWasya]

Например так

Код:

type
 TFB2File = class(TComponent)
  private
   FFileName: String;
  public
   constructor CreateFromFile(AOwner: TComponent; const AFileName: String);overload; 
   property FileName: String read FFileName;
 end;

Код:

constructor TFB2File.CreateFromFile(AOwner: TComponent; const AFileName: String);
begin
  inherited Create(AOwner);
  FFileName:=AFileName;
end;

Конструктор компоненты Create должен иметь только такую сигнатуру.

Код:

constructor Create(AOwner: TComponent);override;

Но никто не мешает создавать конструкторы с другими именами

[NumLock]

так:

Код:

type
  TZzzComponent = class(TComponent)
  private
    FParam: string;
  public
    property Param: string read FParam;
    constructor Create(AOwner: TComponent; const AParam: string); reintroduce;
  end;
...
{ TZzzComponent }

constructor TZzzComponent.Create(AOwner: TComponent; const AParam: string);
begin
  inherited Create(AOwner);
  FParam:=AParam;
end;

использование:

Код:

TZzzComponent.Create(Self, 'hello world');

[M.A.D.M.A.N.]

Сообщение от icWasya

Например так

Код:

type
 TFB2File = class(TComponent)
  private
   FFileName: String;
  public
   constructor CreateFromFile(AOwner: TComponent; const AFileName: String);overload; 
   property FileName: String read FFileName;
 end;

Код:

constructor TFB2File.CreateFromFile(AOwner: TComponent; const AFileName: String);
begin
  inherited Create(AOwner);
  FFileName:=AFileName;
end;

Конструктор компоненты Create должен иметь только такую сигнатуру.

Код:

constructor Create(AOwner: TComponent);override;

Но никто не мешает создавать конструкторы с другими именами

В случае с перегрузкой, не обязательно inherited, достаточно вызвать перегруженный конструктор.

[icWasya]

В случае с перегрузкой, не обязательно inherited, достаточно вызвать перегруженный конструктор.

inherited Create делает инициализацию "компонентной" части.
Так что вызывать его обязательно.

[M.A.D.M.A.N.]

inherited передает управление в конструктор предка; в данном случае конструктор перегружен, второй перегруженный конструктор и есть предковый, так что inherited не обязателен.
Тем более, у тебя оверлоад, а не реинтродьюс; вот при реинтродьюсе нужен inherited.

[M.A.D.M.A.N.]

Ничто не мешает из одного конструктора вызвать другой.

[lmikle]

Сообщение от NumLock

так:

Код:

type
  TZzzComponent = class(TComponent)
  private
    FParam: string;
  public
    property Param: string read FParam;
    constructor Create(AOwner: TComponent; const AParam: string); reintroduce;
  end;
...
{ TZzzComponent }

constructor TZzzComponent.Create(AOwner: TComponent; const AParam: string);
begin
  inherited Create(AOwner);
  FParam:=AParam;
end;

использование:

Код:

TZzzComponent.Create(Self, 'hello world');

Нам, а не подскажешь, с какой версии ввели reintroduce?

[Freeman]

Сообщение от lmikle

Нам, а не подскажешь, с какой версии ввели reintroduce?

По логике, reintroduce должен был быть введен вместе с overload, то есть в Delphi 4. Работающего Delphi 4 под рукой нет, есть Delphi 6, в нем reintroduce уже есть.

[NumLock]

с ходу не могу сказать. да и проверить сейчас только минимум на Delphi 7 есть возможность. старенькие версии (Delphi 4, 5, 6) дома на архивных болванках есть, но нужно время их найти, установить.