mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 01:30:28 +02:00
18 lines
275 B
ObjectPascal
18 lines
275 B
ObjectPascal
{$mode objfpc}
|
|
{$M+}
|
|
|
|
type
|
|
tenum = (te_first,te_second,te_third,te_fourth,te_fifth);
|
|
|
|
tenumrange = te_second..te_fourth;
|
|
|
|
tc1 = class
|
|
public
|
|
fe : tenumrange;
|
|
published
|
|
property enumrange : tenumrange read fe write fe;
|
|
end;
|
|
|
|
begin
|
|
end.
|