mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 01:27:55 +02:00
8f96ace589
have to wrap an existing (g|s)etter that was marked as "abstract" (don't
mark the helper also as abstract, sicnce it contains code)
git-svn-id: trunk@23545 -
30 lines
433 B
ObjectPascal
30 lines
433 B
ObjectPascal
program tprop4;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
tprop4c = class
|
|
protected
|
|
function Gettest2: longint; virtual; abstract;
|
|
public
|
|
property test: longint read Gettest2;
|
|
end;
|
|
|
|
tprop4c2 = class(tprop4c)
|
|
protected
|
|
function Gettest2: longint; override;
|
|
end;
|
|
|
|
function tprop4c2.Gettest2: longint;
|
|
begin
|
|
result:=1;
|
|
end;
|
|
|
|
var
|
|
c: tprop4c;
|
|
begin
|
|
c:=tprop4c2.create;
|
|
if c.test<>1 then
|
|
halt(1);
|
|
end.
|