delphi - 如何使用 RTTI 分配 OleVariant？//将 OleVariant 或 Variant 转换为具有特定 TTypeKind 或 TRTTIType 的 TValue？

Question

我有一个 OleVariant或 Variant例如，使用 IXMLNode.GetAttributeNS 读取的值，使其成为“字符串”( varOleStr 或 varString )，我想用例如 TRTTIField.SetValue 写入该值, 需要 TValue分配兼容 TRTTIField.FieldType: TRTTIType .

对于基本类型(沿 TVarType 和 TRTTIType.TypeKind: TTypeKind )，而不是使每个单独的情况:case VarType(Value) and varTypeMask of varXXXX: ... end , 我正在寻找从 OleVariant 转换的通用方法或 Variant到 TValue然后与特定的 TRTTIType 分配兼容.

在 Variant 和 RTTI 世界之间转换值的方法是什么？

此外，Spring4D 库是项目的一部分，以防万一。

更新:

从技术上讲，我正在寻找 Convert在以下代码中(在 Variant 世界中转换):

var
  Left: TRTTIField;
  Right: OleVariant;
  Temp: TValue;
  Instance: Pointer;
begin
  { Examples: varOleStr --> varXXXX --> assignment-compatible TValue }

  Right := 'False'; // varOleStr, as read with IXMLNode.GetAttributeNS
  Right := Convert(Right, Left.FieldType); // making it possibly varBoolean
  Temp := TValue.FromVariant(Right); // tkEnumeration, like Left.FieldType.TypeKind

  Right := '2'; // varOleStr, as read with IXMLNode.GetAttributeNS
  Right := Convert(Right, Left.FieldType); // making it possibly varInteger
  Temp := TValue.FromVariant(Right); // tkInteger, like Left.FieldType.TypeKind

  Right := '3.1415'; // varOleStr, as read with IXMLNode.GetAttributeNS
  Right := Convert(Right, Left.FieldType); // making it possibly varDoiuble
  Temp := TValue.FromVariant(Right); // tkFloat, like Left.FieldType.TypeKind

  Right := 'Hello!'; // varOleStr, as read with IXMLNode.GetAttributeNS
  Right := Convert(Right, Left.FieldType); // making it possibly varOleStr
  Temp := TValue.FromVariant(Right); // tkUString, like Left.FieldType.TypeKind

  { ... and an assignment: }

  Left.SetValue(Instance, Temp);
end;

我找到了 VariantChangeTypeEx ，但是，我不知道如何关联 Left.FieldType到它以使后续代码工作。 -- 我也不介意在 RTTI 世界中转换，而是从 Temp := TValue.FromVariant(Right) 开始( tkUString ) 然后以某种方式达到分配兼容性；所以 Temp.Kind将变为 tkEnumeration/ bool ， tkFloat ,... 由 Left.FieldType.TypeKind 给出.

如何使用 RTTI 分配变体？或者，如何将 Variant 转换为 TValue 然后分配它？

注: RTTIField.SetValue 将失败并返回 EInvalidCast如果字段类型和值类型在性质上不同，则 RTTI 不会尝试更改值的性质。我在这里的困难是达到分配兼容性。

更新:给定答案，以下代码概述了我的解决方案:

procedure (const Value: Pointer; const RTTIField: TRTTIField; const XMLNode: IXMLNode);
var
  Temp1: OLEVariant;
  Temp2: TValue;
begin
  Assert(XMLNode.HasAttribute(Ref, Namespace));
  Temp1 := XMLNode.GetAttributeNS(Ref, Namespace);
  Temp2 := TValue.FromVariant(Temp1);
  Temp2 := Temp2.Convert(RTTIField.FieldType.Handle{, FormatSettings}); // in Spring.TValueHelper
  RTTIField.SetValue(Value, Temp2);
end;

Answer 1

TValue 中的内置类型转换在这里对您没有帮助，因为它们只允许那些显式兼容的类型(即可分配的)。从技术上讲，如果您将 Variant 存储在 TValue 中而不“解包”它，这就是 FromVariant在内部，它应该能够将 Variant 转换为通常可以转换/转换的任何东西。然而，将持有“真”或“假”的变体转换为 bool 值至少存在一个问题(参见 https://quality.embarcadero.com/browse/RSP-20160)

但是，由于您已经在使用 Spring4D，您可以使用其改进的 TValue 类型转换功能。

只需使用 Convert来自 TValueHelper 的方法在 Spring.pas .

在那里您可以传递一个 PTypeInfo(在您的代码中为 Left.FieldType.Handle)和可选的 TFormatSettings - 默认情况下，它将使用当前语言环境。