枚举类型的数据与字符串数据如何相互转换呢？

Question

color=(red,blue,green)
我想把其中的一个值打印出来，应该如何实现类型转换？
另外为什么我的D6里没有大家说的TypInfo单元啊

Answer 1

USES TypInfo
在TypInfo上面CTRL+ENTER

Answer 2

谢谢楼上关注
打个比方我从一个记录中获取一个枚举常量，我想知道然后把它显示出来
比如说用showmessage()

Answer 3

你查查enum什么的，有函数做这个转换

Answer 4

谢谢楼上关注
打个比方我从一个记录中获取一个枚举常量，我想知道如何把它显示出来
比如说用showmessage()

Answer 5

一个变通的思路 声明完枚举类型之后做个函数 类似
function (index:integer):string;
begin
  case index of 
  0:
   result :='red';
  1:
   result :='blue';
  end;
end;

Answer 6

use TypInfo
字符转枚举
color(GetEnumValue(TypeInfo(color),'red')枚举转字符
GetEnumName(TypeInfo(Color), Ord(red))