Setter mehrfach überschreiben.

[Bjoerk]

Ich habe 3 Klassen:

Delphi-Quellcode:

  TDingensBase = class
  protected
    function GetTest: string; virtual; abstract;
    procedure SetTest(const Value: string); virtual; abstract;
    property Test: string read GetTest write SetTest;
  end;

  TDingens = class(TDingensBase)
  protected
    FTest: string;
    function GetTest: string; override;
    procedure SetTest(const Value: string); override;
  public
    property Test;
  end;

  TDingensEx = class(TDingens)
  private
    procedure SetTest(const Value: string); override;
  end;

Das seh ich doch richtig, daß man die property Test nicht 2 mal veröffenlichen muß und das für Test von TDingensEx der Setter davon benutzt wird?