delphi - 有没有办法根据它们在基本类型中的索引位置来指定枚举子组？

Question

我有一个枚举，它以前被用来通过循环来填充组合框。组合框现在需要根据用户输入填充不同的值，因此创建一个简单的子范围对于一个实例可以正常工作，但对于其他实例则根本不起作用。有没有办法从基本枚举中“提取”值并按指定顺序创建指定值的子枚举？

type
  TExampleEnum= (en_Planes= 1, en_Trains, en_Automobiles, en_Boats);
  ExampleGoodRange= en_Trains..en_Automobiles;
  ExampleEnumSetNeeded= en_Boats, en_Automobiles; //in this order


const
  TExampleEnumStrings: array [1 .. ord(high(TExampleEnum))
    ] of string = ('Planes', 'Trains', 'Automobiles',
      'Boats');

标签： delphienumsrange