delphi - 将类型声明为集合的子集

Question

我可以轻松声明一个枚举和一个集合。
但有时我只想使用枚举的一部分，并且希望编译器检查子枚举及其子集中的值是否在范围内。

type
  TDay = (mon, tue, wen, thu, fri, sat, sun);
  TWeekday = (mon..fri); //not allowed;

  TDays = set of TDay;
  TWeekdays = set of TDay[mon..fri]; //not allowed

我可以将 TWeekday 和 TWeekdays 声明为 TDay 的派生物吗？如果可以，如何声明？

_{有趣的是，谷歌在这个问题上没有产生任何结果(对我来说)，只是普通的旧集。}

Answer 1

您的子范围语法错误。去掉括号 () 就可以了。

type
  TDay = (mon, tue, wen, thu, fri, sat, sun);
  TWeekday = mon..fri; // A subrange of TDay

  TDays = set of TDay;
  TWeekdays = set of TWeekDay; 

更多关于Subrange Types和 Sets .