fpcsrc/tests/tbs/tb0489.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

{$mode delphi}
uses ub0489;
type oo = class
            function getmyint:integer;
            property someprop:integer read getmyint;
            end;

function oo.getmyint:integer;

begin
  result:=1;
end;


procedure test2;

var ch:char;
    x : oo;

begin
  test(x.someprop,ch,1);
end;

begin
end.