变体里存的类型解决思路

变体里存的类型
现在有人传个变体给我，也告诉我有几个参数
我现在要怎么判断InData[0]是什么类型的？（整形，字符型，还是变体？）
  InData := VarArrayCreate([0,2],varvariant);


[解决办法]

Delphi(Pascal) code

TVarData = packed record    case Integer of      0: (VType: TVarType;          case Integer of            0: (Reserved1: Word;                case Integer of                  0: (Reserved2, Reserved3: Word;                      case Integer of                        varSmallInt: (VSmallInt: SmallInt);                        varInteger:  (VInteger: Integer);                        varSingle:   (VSingle: Single);                        varDouble:   (VDouble: Double);                        varCurrency: (VCurrency: Currency);                        varDate:     (VDate: TDateTime);                        varOleStr:   (VOleStr: PWideChar);                        varDispatch: (VDispatch: Pointer);                        varError:    (VError: HRESULT);                        varBoolean:  (VBoolean: WordBool);                        varUnknown:  (VUnknown: Pointer);                        varShortInt: (VShortInt: ShortInt);                        varByte:     (VByte: Byte);                        varWord:     (VWord: Word);                        varLongWord: (VLongWord: LongWord);                        varInt64:    (VInt64: Int64);                        varString:   (VString: Pointer);                        varAny:      (VAny: Pointer);                        varArray:    (VArray: PVarArray);                        varByRef:    (VPointer: Pointer);                     );                  1: (VLongs: array[0..2] of LongInt);               );            2: (VWords: array [0..6] of Word);            3: (VBytes: array [0..13] of Byte);          );      1: (RawData: array [0..3] of LongInt);  end;
[解决办法]
可以用VarType函数判断
[解决办法]
Delphi(Pascal) code
function VarType(const V: Variant): TVarType;begin  Result := TVarData(V).VType;end;
[解决办法]
VarType