Methode überschreiben + zusätzlicher parameter

[Marcel Gascoyne]

Zitat von Pseudemys Nelsoni:

moin,

wie kann ich denn eine methode einer klasse überschreiben und einen zusätzlichen parameter noch mitgeben?

Du musst die neue Methode mit reintroduce und overload definieren, z.b. so:

Delphi-Quellcode:

type
  TVorfahr = class(TObject)
  public
    procedure SendData(param1: Typ1; param2: Typ2); virtual;
  end;

  TNachfahr = class(TVorfahr)
  public
    procedure SendData(param1: Typ1; param2: Typ2; param3: Typ3); reintroduce; overload;
  end;

procedure TVorfahr.SendData(param1: Typ1; param2: Typ2);
begin
 ...
end;

procedure TNachfahr.SendData(param1: Typ1; param2: Typ2; param3: Typ3);
begin
  inherited SendData(param1,param2);
  ...
end;

Gruß,
Marcel