Delphi RTTI 枚举类型的 SetValue 方法

Question

我该如何使用运行时类型信息（RTTI）来设置枚举字段的值？

例如：

type
  TCPIFileStatus= (fsUnknown, fsProcessed);
  TTest = class
    FStatus: TCPIFileStatus; 
  end;
      ...
  var
    Data: TTest;
    Ctx: TRttiContext;
    Status : TCPIFileStatus;
  begin
    Data := TTest.Create;
    Status := fsProcessed;
    Ctx.GetType(Data.ClassType).GetField('FStatus').SetValue(Data, Status);
  end;

我收到了“无效的类类型转换”错误信息。

注意：我需要使用RTTI，因为在设计时我并不总是知道对象类型或字段名称。

- David Moorhouse

Answer 1

你需要将TValue传递给SetValue方法。尝试使用以下代码：

{$APPTYPE CONSOLE}
uses
  Rtti,
  SysUtils;


type
  TCPIFileStatus= (fsUnknown, fsProcessed);
  TTest = class
    FStatus: TCPIFileStatus;
  end;

  var
    Data   : TTest;
    Ctx    : TRttiContext;
    Status : TCPIFileStatus;
    v      : TValue;
begin
  try
    Data := TTest.Create;
    try
      Status := fsProcessed;
      v:= v.From(status); 
      Ctx.GetType(Data.ClassType).GetField('FStatus').SetValue(Data, v);

      // do your stuff
    finally
       Data.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

- RRUZ

---

谢谢，我看了FromVariant和FromOrdinal，却错过了From方法。 - David Moorhouse

Answer 2

如果你不知道函数确切的枚举类型，而只有一个TypeInfo，解决这个问题的另一种方法是使用TValue的Make过程。

procedure Make(AValue: NativeInt; ATypeInfo: PTypeInfo; out Result: TValue); overload; static;

这是一个示例（来自XML配置解析器）： 稍后将用于TRTTIField/TRTTIProperty.SetValue()。

function EnumNameToTValue(Name: string; EnumType: PTypeInfo): TValue;
var
  V: integer;

begin
  V:= GetEnumValue(EnumType, Name);
  TValue.Make(V, EnumType, Result);
end;

希望这能帮到您。

- podostro

Answer 3

使用TValue.From通用方法获取兼容的TValue值，以传递给SetValue方法...

嗯...从文字中理解有些困难，最好看代码：

type
  TCPIFileStatus= (fsUnknown, fsProcessed);
  TTest = class
    FStatus: TCPIFileStatus;
  end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Data: TTest;
  Ctx: TRttiContext;
  Status : TCPIFileStatus;
  AValue: TValue;
begin
  Data := TTest.Create;
  try
    Status := fsProcessed;
    Ctx.GetType(Data.ClassType).GetField('FStatus').SetValue(Data, TValue.From(Status));
    Assert(Data.FStatus = Status, 'Something wrong on assigning status trough RTTI!');
  finally
    Data.Free;
  end;
end;

- jachguate