Klasse ableiten: Methode überschreiben & Rückgabetyp ändern

[hoika]

Hallo,

warum benutzt du nicht reintroduce ?

Delphi-Quellcode:

type
  TClass1 = class
    function GetValue: Integer; virtual;
  end;

  TClass2 = class(TClass1)
    function GetValue: Boolean; reintroduce;
  end;

function TClass1.GetValue: Integer;
begin
  Result:= 1;
end;

function TClass2.GetValue: Boolean;
begin
  Result:= True;
end;

Heiko