blob: c3b4ea6677308d68063a48fbdd4b42549d689284 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %interactive }
{ run in gdb, "print a.a7" when reaching the writeln and
check that the output is 8
}
{$mode objfpc}
type
ta = class
private
fa: array[6..10] of byte;
public
property a7: byte read fa[7];
end;
var
a: ta;
begin
a:=ta.create;
a.fa[7]:=8;
writeln(a.a7);
end.
|
