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