关于加入枚举型特性的问题！

Question

我现在要加入枚举型特性，首先声明一个枚举类型：TProp=(0,1,2,3);请问这段该
放在那里？？？
  又该如何调用？

Answer 1

procedure TForm1.Button6Click(Sender: TObject);
type
  TProp = (0, 1, 2, 3);//枚举
  TPropType = set of TProp;// 集合
  
var
  temp: TPropType;
begin
  temp:= [1, 2];
  if 1 in temp then
    ShowMessage('1 in temp');
end;

Answer 2

要看这个枚举类型的使用范围了，如果使用范围大于一个例程，那么应该放到单元文件的Uses后的Types部分，如下：
unit YourUnitName;
interface
uses
  //一些常用单元
type  //在这里定义一些类型或类
  TProp=(0,1,2,3);
  //这里是一些类的定义
implementation
  ...如果这个枚举类型仅在一个例程（过程或函数）内使用，可以直接放到例程内部，如：
procedure ....
type
  TProp = (0, 1, 2, 3);
  //可以定义一些基于此枚举类型的其他数据类型，如集合
var
  //一些基于TProp的变量或其他类型的变量
begin
  //....
end;

Answer 3

Type下面就可以了，不管是函数的内部还是interface下面都可以