blob: fc51fc48f4798e2ff2350d73f33d2d9b25ce88a1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %fail }
{$mode objfpc}
type
TFPMemberVisibility = (
visAutomated := 'A',
visPublished := 'B',
visPrivate := 'I',
visProtected := 'O',
visPublic := 'U',
visDefault := 'd');
TFPArray = array[TFPMemberVisibility] of String;
begin
end.
|
