blob: 62de8a69cf7eaf079674b37e45698a381f33a2a1 (
plain)
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
|
{ %norun }
{$ifdef fpc}
{$mode delphi}
{$endif}
type
tc = class
private
f: array[0..5] of integer;
procedure setf(const val: integer);
public
property prop: integer read f[1] write setf;
end;
procedure tc.setf(const val: integer);
begin
f[1]:=val;
end;
var
c: tc;
p: pointer;
begin
p := @c.prop;
end.
|
