blob: 1ca307bbfbab056cd92f190fc0e19c6decad737b (
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
27
28
29
30
31
32
33
|
{ %fail }
{ %norun }
{$ifdef fpc}
{$mode delphi}
{$endif}
type
tc = class
private
f: integer;
procedure setf(const val: integer);
function getf: integer;
public
property prop: integer read getf write setf;
end;
procedure tc.setf(const val: integer);
begin
f:=val;
end;
function tc.getf: integer;
begin
getf:=f;
end;
var
c: tc;
p: pointer;
begin
p := @c.prop;
end.
|
