mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-23 06:58:50 +02:00
8634aa8ad2
o only create an accessor wrapping the inherited accessor at a
potentially lower visibility level if the overriding property
itself does not specify a different accessor to use
o simplified code
o tests
git-svn-id: trunk@27954 -
41 lines
660 B
ObjectPascal
41 lines
660 B
ObjectPascal
{$mode delphi}
|
|
{$modeswitch unicodestrings}
|
|
{$namespace org.freepascal.test}
|
|
|
|
Unit tprop6;
|
|
|
|
interface
|
|
|
|
uses
|
|
jdk15;
|
|
|
|
type
|
|
TBaseClassProp6 = class
|
|
private
|
|
FLevel : integer;
|
|
procedure SetLevel(value: integer); virtual;
|
|
public
|
|
property Level: Integer read FLevel write SetLevel;
|
|
end;
|
|
|
|
TDerivedClassProp6 = class(TBaseClassProp6)
|
|
protected
|
|
procedure SetLevel(value: integer); override;
|
|
public
|
|
property Level: Integer read FLevel write SetLevel;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TBaseClassProp6.SetLevel(Value: integer);
|
|
begin
|
|
FLevel := Value;
|
|
end;
|
|
|
|
procedure TDerivedClassProp6.SetLevel(Value: integer);
|
|
begin
|
|
FLevel := Value+1;
|
|
end;
|
|
|
|
end.
|