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?
