blob: ddfbc1e31a931528f0cd9e6c2e196d81a8a464fc (
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
|
{ %fail }
{$mode objfpc}
program bug8303;
{$APPTYPE CONSOLE}
uses
SysUtils;
type proptype1=record
record_member:integer;
end;
const records_array: array[0..3] of proptype1 = ((record_member:0),(record_member:0),(record_member:0),(record_member:0));
array_idx=2;
type
tsomeclass = class
procedure setprop1(p:proptype1);
property prop1: proptype1 read records_array[array_idx].record_member write setprop1;
end;
procedure tsomeclass.setprop1(p>proptype1);
begin
end;
begin
end.
|
