摘要： //获取枚举类型元素位置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; 阅读全文