如何用类实现枚举类型？同时支持toString与简洁赋值

问题描述 #

定义了如下枚举类型：

Type1=(left,right,up,down)

通常需要编写如下case语句将其转换为字符串用于输出：

case Type of
left: result:='left'
right: result:='right'
...
end

请问是否可以实现类似Type.toString的功能，同时保留Type:=left这样的简洁赋值方式？

解决方案 #

当然可以实现，以Delphi/Pascal环境为例，提供几种实用方案：

1. 利用RTTI自动获取枚举字符串 #

开启RTTI支持后，无需手动维护字符串映射，直接通过运行时类型信息获取枚举名称：

uses RTTI;

function EnumToString<T>(const Value: T): string;
var
  ctx: TRttiContext;
  typ: TRttiType;
begin
  ctx := TRttiContext.Create;
  typ := ctx.GetType(TypeInfo(T));
  Result := typ.GetEnumName(Value);
  ctx.Free;
end;

// 使用示例
var
  MyType: Type1;
begin
  MyType := left;
  ShowMessage(EnumToString<Type1>(MyType)); // 输出"left"
end;

这种方式完全保留Type:=left的简洁赋值，且新增枚举值时无需修改转换逻辑。

2. 自定义枚举记录助手（Record Helper） #

给枚举类型绑定一个助手记录，实现专属的ToString方法，调用方式更直观：

type
  Type1 = (left, right, up, down);
  TType1Helper = record helper for Type1
    function ToString: string;
  end;

function TType1Helper.ToString: string;
begin
  case Self of
    left: Result := 'left';
    right: Result := 'right';
    up: Result := 'up';
    down: Result := 'down';
  end;
end;

// 使用示例
var
  MyType: Type1;
begin
  MyType := right;
  ShowMessage(MyType.ToString); // 输出"right"
end;

赋值操作依然保持Type:=left的简洁性，仅在需要转字符串时调用.ToString即可。

3. 使用内置函数直接转换 #

从Delphi XE版本开始，内置的GetEnumName函数可以直接完成枚举到字符串的转换：

var
  MyType: Type1;
begin
  MyType := up;
  ShowMessage(GetEnumName(TypeInfo(Type1), Ord(MyType))); // 输出"up"
end;

内容的提问来源于stack exchange，提问作者Wolfgang Bures