"Create" neu definieren

[JasonDX]

folgendes dürfte funzen:

Delphi-Quellcode:

myClass = class(TObject)
protected
  constructor Create(AOwner: TObject); override;
public
  constructor Create(AOwner: TObject; Wasauchimmer: integer); overload;
end;

//...

constructor myClass.Create(AOwner: TObject);
begin
  inherited;
end;

constructor myClass.Create(AOwner: TObject; Wasauchimmer: integer);
begin
  Create(AOwner);
end;

obs das Create(AOwner: TObject); braucht, weiß ich nicht. Aber so gehste sicher, dass nur der neue constructor verwendet werden kann.

Habs aber nicht ausprobiert.

Vielleicht gehts aber auch ohne override ganz einfach mit dieser Zeile als aufruf für den alten constructor

Delphi-Quellcode:

begin
  inherited Create(AOwner);
end;