mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 16:19:28 +02:00
2075dc5a53
target (generate new getters/setters with increased visibility that
call the inherited ones, if necessary)
git-svn-id: trunk@27940 -
12 lines
128 B
ObjectPascal
12 lines
128 B
ObjectPascal
program tprop5a;
|
|
|
|
uses
|
|
tprop5;
|
|
var
|
|
d: tderivedclass;
|
|
begin
|
|
d:=tderivedclass.create;
|
|
d.level:=5;
|
|
halt(d.level-5);
|
|
end.
|