blob: 52113484978a5b22f8bb43cf4c0f2cd9990bf612 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %FAIL }
{ inside a helper's declaration the methods/fields of the extended record can't
be accessed }
program trhlp11;
{$ifdef fpc}
{$mode delphi}
{$endif}
type
TTest = record
Test: Integer;
end;
TTestHelper = record helper for TTest
property AccessTest: Integer read Test;
end;
begin
end.
|
