Variant 内容类型的字符串表示形式？

Question

首先，对我的英语表示歉意，我希望我在这里写的内容有意义。 现在我的问题。

如何使用 TypInfo.GetEnumName() 获取变体内容类型的字符串表示形式。 我尝试了以下操作，但没有运气，我得到了数字表示。

myString := GetEnumName( TypeInfo(TVarType), TVarData(myVar).VType );

谢谢。

Answer 1

只需使用内置的 Delphi 函数即可获取 Variant 类型的字符串表示形式。

var
  MyVariantType: string;
  MyVariant: Variant;
begin
  MyVariant := 'Hello World';
  MyVariantType := VarTypeAsText(VarType(MyVariant));
  ShowMessage(MyVariantType); //displays: String

  MyVariant := 2;
  MyVariantType := VarTypeAsText(VarType(MyVariant));
  ShowMessage(MyVariantType); //displays: Byte
end;

Answer 2

引用Delphi 2007帮助：

使用 GetEnumName 将 Delphi 枚举值转换为在代码中表示它的符号名称。

这意味着您不能将它用于此目的，因为 TVarData.VType 不是枚举值，而是一个整数，它被设置为 System.pas 中的常量之一，这些常量取自Windows SDK wtypes.h 文件。 查看GetEnumName()的源代码，它确实立即返回一个包含整数值的字符串。

编辑：

是否还有其他方法来获取 TVarData.VType 的字符串表示形式

您可以手动确定字符串表示形式。 首先，您需要意识到该整数中编码了几位信息，因此简单的 case 语句或数组查找将不起作用。 低 12 位是类型掩码，高位编码有关它是向量还是数组类型以及是否通过引用给出的信息。 重要的部分是：

const
  varTypeMask = $0FFF;
  varArray    = $2000;
  varByRef    = $4000;

所以你可以这样做：

function VariantTypeName(const AValue: TVarData): string;
begin
  case AValue.VType and varTypeMask of
    vtInteger: Result := 'integer';
    // ...
  end;

  if AValue.VType and varArray <> 0 then
    Result := 'array of ' + Result;
  if AValue.VType and varByRef <> 0 then
    Result := Result + ' by ref';
end;

Answer 3

由于它不是枚举，因此您必须手动执行此操作。 编写如下内容：

function VariantTypeName(const value: TVarData): string;
begin
  case value.VType of
    vtInteger: result := 'integer';
    //and so on
end;

或者，由于 System.pas 中的值是按顺序列出的，因此您可以尝试声明一个 const 字符串数组，并让您的 VariantTypeName 函数返回该数组的适当成员。

Answer 4

对于不支持 VarTypeAsText 的 Delphi 版本，这里有一个想法：您可以自己定义一个遵循 VType 值的枚举类型：（

type
  {$TYPEINFO ON}
  TMyVarType = (
    varEmpty = System.varEmpty, 
    varNull = System.varNull,
    // etc...
    );

也填充未使用的枚举槽 - 请参阅 为什么我会收到枚举类型的“type has no typeinfo”错误这背后的推理）。

接下来，使用这些函数将 Variants 类型读取为您自己的枚举类型：

function MyVarType(VType: TVarType): TMyVarType; overload;
begin
  Result := TMyVarType(VType);
end;

function MyVarType(V: Variant): TMyVarType; overload;
begin
  Result := TMyVarType(TVarData(V).VType);
end;

然后您可以将其转换为如下字符串：

function VarTypeToString(aValue: TMyVarType): string;
begin
  Result := GetEnumName(TypeInfo(TMyVarType), Ord(aValue));
end;