mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 14:47:17 +01:00
19 lines
274 B
ObjectPascal
19 lines
274 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.
|
|
|