delphi - TValue 字符串<--> bool 值来回

Question

我正在玩 TValue

我在一个空白项目中编写了这段代码:

uses
  RTTI;

procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
  b: Boolean;
begin
  s := TValue.From<Boolean > (True).ToString;
  b := TValue.From<string > (s).AsType<Boolean>;
end;

但是我无法从字符串转换回 bool 值；我在第二行收到无效类型转换异常。

我使用的是 Delphi XE，但 Delphi Xe6 中的结果相同，这让我得出结论:我使用了 TValue 错误。

请问我做错了什么。

Answer 1

虽然你给出Boolean作为您问题中的示例，我假设您确实对枚举类型的全部通用性感兴趣。否则你只需调用 StrToBool .

TValue并非旨在执行您正在尝试的转换。最终，在低层，函数GetEnumValue和GetEnumName在 System.TypInfo单位是执行这些转换的函数。

在现代版本的 Delphi 中，您可以使用 TRttiEnumerationType 将文本转换为枚举类型值:

b := TRttiEnumerationType.GetValue<Boolean>(s);

您可以像这样朝另一个方向移动:

s := TRttiEnumerationType.GetName<Boolean>(b);

这些方法是通过调用 GetEnumValue 来实现的和GetEnumName分别。

旧版本的 Delphi 隐藏 TRttiEnumerationType.GetValue和TRttiEnumerationType.GetName作为私有(private)方法。如果您使用这样的 Delphi 版本，那么您应该使用 GetEnumName .