fpcsrc/tests/test/urhlp14.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

unit urhlp14;

{$ifdef fpc}
  {$mode delphi}
{$endif}

interface

type
  TTest = record
  strict private
    Test1: Integer;
  private
    Test2: Integer;
  public
    Test3: Integer;
  end;

implementation

end.