字符串能不能转成枚举常量
展开全部
下面的代码是把枚举转字符串的，你反向操作即可。
利用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;
本回答由网友推荐
利用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;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
2016-12-30
深圳中宇视通科技有限公司
深圳中宇视通科技有限公司，专业生产液晶拼接屏，监视器，广告机，查询机，触摸一体机，微信打印广告机，户外定制广告机，定制显示端产品，欢迎来公司考察指导，期待跟您的合作！
向TA提问
关注
![]()
展开全部
自己写一个预处理器, 在编译器运行, 它搜索代码中的 enum 定义, 转换成一个字符串表送给编译器编译.
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
