fpcsrc/tests/tbs/tb0475.pp


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

{$mode delphi}
type
  to1 = class
     fp : longint;
     property p : longint read fp write fp;
  end;

procedure p(const v);
  begin
  end;

var
  a : pchar;
  o1 : to1;

begin
  o1:=to1.create;
  p(a[0]);
  p(o1.p);
  o1.free;
end.