Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
21. Mär 2013
Wieso, gibt ja nur eine Warnung ;)
So reicht das auch (wenn man die Eigenschaft um einen Setter erweitern möchte)
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;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
21. Mär 2013
In der Basis-Klasse würde ich die property komplett verstecken und Getter/Setter als abstract definieren:
type
TBaseClass=Class
protected
function GetValue: Integer; virtual; abstract;
Procedure SetValue(aValue:Integer); virtual; abstract;
Property Value : Integer read GetValue;
End;