枚举类型

 //获取枚举类型元素位置

procedure TForm1.Button1Click(Sender: TObject);
var
  d1: TMyData;
begin
  d1 := black;
  ShowMessage(IntToStr(Integer(d1)));    

end;

 

 //获取枚举类型的字符串标识 需引用TypInfo单元

procedure TForm1.Button2Click(Sender: TObject);
var
  str: string;
begin
  str := TypInfo.GetEnumName(TypeInfo(tmydata), 2);  ShowMessage(str);
end;