mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 09:18:10 +02:00
18 lines
273 B
ObjectPascal
18 lines
273 B
ObjectPascal
{ %fail }
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TFPMemberVisibility = (
|
|
visAutomated := 'A',
|
|
visPublished := 'B',
|
|
visPrivate := 'I',
|
|
visProtected := 'O',
|
|
visPublic := 'U',
|
|
visDefault := 'd');
|
|
|
|
TFPArray = array[TFPMemberVisibility] of String;
|
|
|
|
begin
|
|
end.
|