string - 如何将枚举值转换为字符串？

Question

这个问题已经有答案了:

Generic functions for converting an enumeration to string and back (5 个回答)

已关闭 7 年前。

我知道我以前就能够做到这一点，很久以前，所以它一定是可能的。

我想将一个项目(例如组件的对齐属性 alNone)转换为可以保存、显示等的字符串。我知道我可以获取字节值并得出我自己的文本，但我确信有一种更直接的方法。

例如我想...

var S:string;
S:= somehow(Form.Align);
ShowMessage(S);

其中“不知何故”是我将表单的对齐属性的设置转换为字符串，例如“alNone”。

Answer 1

您可以使用 RTTI 在枚举类型和字符串之间来回转换:

uses
  RTTI;

procedure TForm40.FormCreate(Sender: TObject);
var
  sAlign: string;
  eAlign: TAlign;
begin
  //Enum to string      
  sAlign := TRttiEnumerationType.GetName(Align);
 
  //string to enum
  eAlign := TRttiEnumerationType.GetValue<TAlign>(sAlign);
end;