mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 08:49:38 +02:00
e7315d035c
raised because it was automatically raised in the parent class (can happen
for the JVM target when letting the compiler generate getters/setters for
properties)
git-svn-id: trunk@23522 -
37 lines
494 B
ObjectPascal
37 lines
494 B
ObjectPascal
program tprop3;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
tprop3c = class
|
|
protected
|
|
function Gettest: longint; virtual; abstract;
|
|
public
|
|
property test: longint read Gettest;
|
|
end;
|
|
|
|
tprop3c2 = class(tprop3c)
|
|
protected
|
|
function Gettest: longint; override;
|
|
end;
|
|
|
|
tprop3c3 = class(tprop3c2)
|
|
protected
|
|
function Gettest: longint; override;
|
|
end;
|
|
|
|
|
|
function tprop3c2.Gettest: longint;
|
|
begin
|
|
result:=1;
|
|
end;
|
|
|
|
|
|
function tprop3c3.Gettest: longint;
|
|
begin
|
|
result:=2;
|
|
end;
|
|
|
|
begin
|
|
end.
|