blob: c8aa9b9e4ef56097f95ae636afcd982a8fa62ff1 (
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
26
|
{ %norun }
{$ifdef fpc}
{$mode delphi}
{$endif}
type
tc = class
private
f: integer;
procedure setf(const val: integer);
public
property prop: integer read f write setf;
end;
procedure tc.setf(const val: integer);
begin
f:=val;
end;
var
c: tc;
p: pointer;
begin
p := @c.prop;
end.
|
