Delphi无效的枚举值'_24170'

Question

我有我的dll，它包含函数：

function GetPdfReport(
  //this is string representation of MyEnum
  AStringParam : Pchar
): TByteDynArray; stdcall; export;

var
//my vars

begin
  try
    try
      //i try to pass incorrect string value on purpose to get exception
      MyEnumVariable := TRttiEnumerationType.GetValue<MyEnum>(AStringParam);

      //code hide
    except
      on E : Exception do
        begin
          //log error
          Log.Error(E.ClassName + ' : ' + E.Message, 'errors');
        end;
    end;
  finally
    //dispose
  end;

然后我得到例外：

InnerException消息为“无效枚举值”\u 24170“无法反序列化为类型“MyEnum”。

我希望日志异常消息包含作为参数传递的字符串值，但不要包含一些不清楚的数字，如“\u 24170”。我该怎么做？

更新：

假设我有一个MyEnum，有三个值（一、二、三），当我传递到函数字符串“五”时，我想看到如下异常：

无效的枚举值“Five”无法反序列化为类型“MyEnum”。

谢谢

Answer 1

如果提供的文本与枚举值之一不匹配，您呈现的代码不会引发异常。相反，返回-1的值。当然，-1不是有效的枚举值，因此TRttiEnumationType。如果您希望执行错误处理，GetValue是一个相当有问题的方法。

你需要自己测试一下。与其使用TRttiEnumerationType，不如直接转到GetEnumValue，这将返回一个整数，从而使错误检查更容易编写。

var
  OrdinalValue: Integer;
  Value: MyEnum;
....
OrdinalValue := GetEnumValue(TypeInfo(MyEnum), AStringParam);
if OrdinalValue = -1 then
  // handle error
Value := MyEnum(OrdinalValue);

当然，您希望将其包装在一个方法中，以使其可重用。