Vererbung von Funktionen

[KahPee]

Hallo,

ich schlage mich gerade mit der Vererbung von Prozeduren rum.. ich habe eine Vorfahren und eine Nachfahrenklasse.. Nun möchte ich folgendes erreichen. In der Vorfahrenklasse soll eine Prozedur deklariert sein, die etwas bestimmtest macht. Die Nachfahrenklasse soll eine Prozedur enthalten die ZUSÄTZLICH zu der Vorfahrenprozedur noch was macht. Ungefähr so:

Delphi-Quellcode:

type
   Tvorfahr=class
    public
     number:integer;
     function numbertoString(a: integer): String;
   end;

  Tnachfahr=class(vorfahr)
    public
     i:integer;
     function numbertoString(a: integer): String;
   end;


function Tvorfahr.numbertoString(a: integer): String;
begin
  globalvariable1:=globalvariable1+a;
  result:=Inttostr(number);
end;

function Tnachfahr.numberToString(a: integer): String;
begin
  //mache erst das von Tvorfahr (mit selbem "a")

  inc(globalvariable2,a);
  resultvonTvorfahr:=resultvonTvorfahr+'.'+Inttostr(i);
end;

Wenn jetzt folgender Aufruf kommt:

Delphi-Quellcode:

test:=Tnachfahr.create;
s:=test.numbertoString;

Soll nur die zweite Prozedur aufgerufen werden (so wie das normalerweise mit "override" funktioniert") allerdings wird in der ja auf die erste Prozedur zugegriffen, sodass indirekt beide durchlaufen werden.

Ich hab schon verscuht das ergebnis aus verschiedenen TUTs zu kriegen. Wäre nett wenn ihr mein Beispiel mal so anpassen könntet, dass es akzeptiert wird vom Compiler. Ich denke, dann bin ich auch in der Lage, das auf kompliziertere Prozeduren zu übertragen.

Vielen Dank

KahPee

[Uwe Raabe]

So wie du das programmiert hast, wird TVorfahr.numbertoString gar nicht aufgerufen. Dazu müsstest du in TNachfahr.numbertoString noch ein inherited aufrufen.

[himitsu]

beim überschreiben auch besser noch so ... siehe OH > virtual bzw. abstact und override

Delphi-Quellcode:

   Tvorfahr=class
    public
     number:integer;
     function numbertoString(a: integer): String; virtual;
   end;

  Tnachfahr=class(vorfahr)
    public
     i:integer;
     function numbertoString(a: integer): String; override;
   end; 


function Tnachfahr.numberToString(a: integer): String;
begin
  result := inherited;  
  // oder result := inherited numberToString(a);

  inc(globalvariable2,a);
  resultvonTvorfahr:=resultvonTvorfahr+'.'+Inttostr(i);
end;

[SirThornberry]

zudem fehlt beim fehlt beim vorfahre "virtual" und beim Nachfahren "override". Am besten du schaust dir erst einmal ein Tutorial zur Vererbung an.

[mkinzler]

Zudem kann man keine Prozeduren sondern nur Methoden vererben