delphi – 如何将枚举类型转换为stringlist？

发布时间：2020-12-15 09:26:49 所属栏目：大数据来源：网络整理

导读：这一行代码： ShowMessage(GetEnumName(TypeInfo(TAlign),1)); 返回“alTop”. 当我想使用字符串变量：’TAlign’而不是TAlign时,如何将枚举类型的所有值都放入stringlist？就像是： ShowMessage(GetEnumName(TypeInfo('TAlign'),1)); 感谢名单解决方法为

这一行代码：

ShowMessage(GetEnumName(TypeInfo(TAlign),1));

返回“alTop”.

当我想使用字符串变量：’TAlign’而不是TAlign时,如何将枚举类型的所有值都放入stringlist？就像是：

ShowMessage(GetEnumName(TypeInfo('TAlign'),1));

感谢名单

解决方法

为了能够使用字符串变量,您需要在某种查找表中使用字符串注册TypeInfo,然后查找它.

要获取列表中的所有枚举类型名称,您可以执行以下操作：

procedure LoadAllEnumValuesIntoStringList(enum: PTypeInfo; list: TStringList);
var
   data: PTypeData;
   i: integer;
begin
   list.clear;
   data := GetTypeData(GetTypeData(enum)^.BaseType^);
   for i := 0 to data.MaxValue do
      list.add(GetEnumName(enum,i));
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!