Methode überschreiben + zusätzlicher parameter

[Pseudemys Nelsoni]

moin,

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

wenn die methode der vorgänger klasse sagen wir mal so aussieht:

Delphi-Quellcode:

procedure SendData(param1: Typ1); virtual;

und dann möchte ich in der nachfolgerklasse folgendes machen:

Delphi-Quellcode:

procedure SendData(param1: Typ1, param2: typ2); override;

...

procedure TMyClass.SendData(param1: Typ1, param2: typ2);
begin
  inherited;
  // und halt weiteres tun...
end;

ist das möglich? muss ja irgendwie, ich möchte nämlich ein record übergeben

[Dannyboy]

Hallo Pseudemys Nelsoni,
was genau klappt an Deinem Beipiel nicht,
wo hakt's denn? :gruebel:

[nailor]

wenn du beide haben willst, dann pack ein overload dahinter (sollte auch im nachhinein noch klappen). brauchst du das ursprüngliche nicht mehr, könnte es mit reintroduce klappen, wobei ich nicht weiß, wie der zu einer änderung der parameterzahl steht.

[Pseudemys Nelsoni]

Moin,

Zitat:

was genau klappt an Deinem Beipiel nicht,

sag ich gleich :mrgreen:

Zitat:

wenn du beide haben willst, dann pack ein overload dahinter

das ist ja das problem, original sieht die methode der vorgänger klasse so aus:

Delphi-Quellcode:

procedure DoActivate(Value: Boolean); override;

wenn ich nun aber überschreiben will und einfach einen paremeter hinzufüge:

Delphi-Quellcode:

procedure DoActivate(Value: Boolean; TSSendDataRec: TTSSendDataRec); override;

kommt:

Zitat:

[Fehler] tsSocketClass.pas(10): Deklaration von 'DoActivate' unterscheidet sich von vorheriger Deklaration

:\

was kann ich denn noch versuchen?

[Chewie]

Überschriebene Methoden müssen die gleichen Parameter haben. Da wirste so wenig machen können. Ich würd an deiner Stelle mein Konzept überdenken. Was genau hast du vor?

[Pseudemys Nelsoni]

ich habe eine Klasse von TClientSocket abgeleitet, wenn also eine verbindung besteht(doactivate) möchte ich von der klasse heraus schon daten an den server senden...nur weiss ich nicht wie... das überschreiben von DoActivate(+parameter, was wohl nicht geht) macht mir genau solche probleme wie beim versuch ein ereignis (geht das überhaupt?)wie "OnConnect" zu überschreiben... :?

Edit: Hab statt 2ten parameter der funktion lieber n neues feld genommen. mal sehn obs so alles geht

[Marcel Gascoyne]

Zitat:

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

[Pseudemys Nelsoni]

ahhh, vielen dank :)

noch eine frage dazu:

Zitat:

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

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

käme das inhertied nicht in die erste prozedur?

[Chewie]

Zitat:

Zitat von Pseudemys Nelsoni

käme das inhertied nicht in die erste prozedur?

Nein, wieso denn? inherited hast immer mit der Vorfahrklasse zu tun. Du greifst ja vom Nachfahren auf den Vorfahren zu und nicht umgekehrt.

[Pseudemys Nelsoni]

achsoooo, schon klar, hab garnicht gelesen das das der vorfahr ist. hab mich auch schon gewundert wieso der nachfahre 2mal die gleiche prozedur (mit unterschiedlichen parametern) hat. :oops:

danke =)