在枚举类型的值和字符串之间相互转换

时间:2022-09-26 19:08:55
  • Uses TypInfo;  
  • //定义枚举类型  
  • type  
  • TDayofWeek=(Monday,Tuesday,Wednesday,Thursday,FriDay,Saturday,Sunday);  
  •   
  • //由值转换为字符串  
  • GetEnumName(TypeInfo(TDayofWeek),Ord(Monday);  
  • //结果应该是字符串'Monday';  
  •   
  • //由字符串得到值  
  • GetEnumValue(TypeInfo(TDayofWeek),'Monday');  
  • //结果应该是0. 当然你也可以用强制类型转换得到枚举值 TDayofWeek(0)=Monday