Question

字符串能不能转成枚举常量

Answer 1

下面的代码是把枚举转字符串的，你反向操作即可。
利用GetEnumName，判断输入的字符串是否是匹配的内容，然后返回枚举值即可。
uses
TypInfo;

type
TTest = (a, b, c, d, haha, yeah);

procedure TForm1.Button1Click(Sender: TObject);
var
ti: PTypeInfo;
td: PTypeData;
i: Integer;
begin
ti := TypeInfo(TTest);
td := GetTypeData(ti);
for i := td^.MinValue to td^.MaxValue do
ListBox1.Items.Add(GetEnumName(ti, i));
end;
本回答由网友推荐

Answer 2

自己写一个预处理器, 在编译器运行, 它搜索代码中的 enum 定义, 转换成一个字符串表送给编译器编译.