Vererbung von Funktionen

[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;