blob: ff6d15a5db87834edbbb27735b6b406e600c6cca (
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
34
35
36
|
{$mode objfpc}
type
tobject1 = class
readl : longint;
function readl2 : longint;
procedure writel(ll : longint);
procedure writel2(ll : longint);
property l : longint read readl write writel;
property l2 : longint read readl2 write writel2;
end;
procedure tobject1.writel(ll : longint);
begin
end;
procedure tobject1.writel2(ll : longint);
begin
end;
function tobject1.readl2 : longint;
begin
end;
var
object1 : tobject1;
i : longint;
begin
object1:=tobject1.create;
i:=object1.l;
i:=object1.l2;
object1.l:=123;
end.
|
