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

Question

这一行代码：

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

返回“alTop”。

当我想使用字符串变量时，如何将枚举类型的所有值都获取到stringlist中：'TAlign'而不是TAlign？类似的东西：

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

感谢名单

Answer 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;