mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 07:58:04 +02:00
b1f85792d7
Same as 3da54dcf9f, but this type when used in type constant definitions
like record fiels
31 lines
343 B
ObjectPascal
31 lines
343 B
ObjectPascal
{ %norun }
|
|
|
|
program T001;
|
|
{$MODE DELPHI}
|
|
{$R-}
|
|
type
|
|
TLanguages = (
|
|
lOne,
|
|
lTwo,
|
|
lThree,
|
|
lFour
|
|
);
|
|
|
|
const
|
|
LANGUAGE_NONE = TLanguages(255);
|
|
|
|
type
|
|
TLanguage = record
|
|
Index : TLanguages;
|
|
end;
|
|
|
|
var
|
|
Lang: TLanguages;
|
|
CurrentLanguage: TLanguage = (
|
|
Index: LANGUAGE_NONE
|
|
);
|
|
|
|
begin
|
|
Lang := LANGUAGE_NONE;
|
|
end.
|