mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 09:28:19 +02:00
32 lines
377 B
ObjectPascal
32 lines
377 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw39876b;
|
|
|
|
{$mode objfpc}
|
|
{$scopedenums on}
|
|
|
|
type
|
|
{$minenumsize 1}
|
|
TEnum1 = (teOne, teTwo, teThree);
|
|
|
|
{$minenumsize 2}
|
|
TEnum2 = (teOne, teTwo, teThree);
|
|
|
|
{$minenumsize 4}
|
|
TEnum4 = (teOne, teTwo, teThree);
|
|
|
|
var
|
|
te1: TEnum1;
|
|
te2: TEnum2;
|
|
te4: TEnum4;
|
|
s: String;
|
|
|
|
begin
|
|
s := 'teTwo';
|
|
|
|
ReadStr(s, te1);
|
|
ReadStr(s, te2);
|
|
ReadStr(s, te4);
|
|
end.
|
|
|