[Delphi] Overloaden van constructor

[Tomatoman]

Voor een class heb ik drie constructors die overloaded zijn:

Delphi:

type
  TMijnForm = class(TForm)
    FParams: TParams;
    FHelpKeyword: string;
    FHelpContext: string;
  public
    constructor CreateNew(Params: TMijnParams);
      reintroduce; overload; virtual;
    constructor CreateNew(Params: TMijnParams;
      const HelpKeyword: string); reintroduce; overload; virtual;
    constructor CreateNew(Params: TMijnParams;
      HelpContext: Integer); reintroduce; overload; virtual;
  end;

Nu moet ik de constructors implementeren. Het gemakkelijkste is het als de tweede en derde constructor de eerste constructor aanroepen:

Delphi:

constructor TMijnForm.CreateNew(Params: TMijnParams);
begin
  inherited Create(Application);
  FParams := Params;
end;

constructor TMijnForm.CreateNew(Params: TMijnParams;
  const HelpKeyword: string);
begin
  Create(Params);
  FHelpKeyword := HelpKeyword;
end;

constructor TMijnForm.CreateNew(Params: TMijnParams;
  HelpContext: Integer);
begin
  Create(Params);
  FHelpContext := HelpContext;
end;

De ene constructor roept dus de andere aan. Het compileert prima, maar mijn vraag is: is deze constructie correct? Krijg ik niet ongewild twee instanties van TMijnForm of andere rare effecten?

[Creepy]

Eehh.. ik zie in je 2de en 3de constructors dat je Create aanroept en niet je eerste createnew. Tikfout?

Ik denk overigens niet dat je constructie twee instanties maakt, zolang je in de constructor die je intern zelf weer aanroept de enige is met de inherited aanroep van create. Waarom roep je overigens niet inherited createnew aan? (aangezien al je createnew functions reintroduce hebben)

[ Voor 16% gewijzigd door Creepy op 14-01-2003 13:24 ]

[LordLarry]

Nee, dit kan en is correct. Een andere oplossing zou het gebruik van default parameters zijn. Dan heb je er niet eens 3 overloaded nodig.

Delphi:

constructor CreateNew(const Params: TMijnParams; const HelpKeyword: String = ''; HelpContext: Integer = 0); reintroduce;

Aannemende dat je CreateNew(...) bedoelt in de onderste twee ipv Create

[ Voor 14% gewijzigd door LordLarry op 14-01-2003 13:26 ]

[Tomatoman]

Inderdaad, ik bedoelde CreateNew . Typfoutje. Bedankt, de antwoorden zijn duidelijk.