Sichtbarkeitsänderung nur für Property?

[himitsu]

Zitat von reintroduce:

Mithilfe der Anweisung reintroduce kann verhindert werden, dass der Compiler Warnungen ausgibt, wenn eine zuvor deklarierte virtuelle Methode verdeckt wird.

Nur nochmal zum Verständnis:

Delphi-Quellcode:

type
  TBasisKlasse = class
  protected
    function GibWas: Integer;
    property Was: Integer read GibWas;
  end;

  TAndereKlasse = class(TBasisKlasse)
  public
    function GibWas;  // nicht neu implementieren, sondern nur verschieben
    property Was;
  end;

  TNocheineKlasse = class(TBasisKlasse)
  public
    function GibWas;
  published
    property Was;
  end;

function TBasisKlasse.GibWas: Integer;
begin
  Result := 42;
end;