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

Question

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

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

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;