Propertys bei Vererbung

[Sir Rufo]

Zitat von DeddyH:

Dann musst Du den Setter aber in TFirstClass trotzdem überschreiben.

Wieso, gibt ja nur eine Warnung

So reicht das auch (wenn man die Eigenschaft um einen Setter erweitern möchte)

Delphi-Quellcode:

type
  TBase = class
  protected
    function GetValue : string; virtual; abstract;
    procedure SetValue( const Value : string ); virtual; // ok, dann eben nur virtual :o)
    property Value : string read GetValue;
  end;

  TFirst = class( TBase )
  protected
    function GetValue : string; override;
  published
    property Value;
  end;

  TSecond = class( TBase )
  private
    FValue : string;
  protected
    function GetValue : string; override;
    procedure SetValue( const Value : string ); override;
  published
    property Value write SetValue; // der Getter wird geerbt :o)
  end;