Local $a
Local $b=False
Local $c=0.234
Local $d='0'
Local $e=Binary("0x00204060")
MsgBox(0,$a,_VarGetType($a))
MsgBox(0,$b,_VarGetType($b))
MsgBox(0,$c,_VarGetType($c))
MsgBox(0,$d,_VarGetType($d))
MsgBox(0,$e,_VarGetType($e))
Func _VarGetType($var)
Local $Type=VarGetType($var)
Switch $Type
Case "int32"
Return "32 位带符号整数"
Case "int64"
Return "64 位带符号整数"
Case "string"
Return "字符串"
Case "Double"
Return "双精度浮点数"
Case "bool"
Return "布尔值"
Case "binary"
Return "二进制数据"
Case "Pointer"
Return "内存地址指针"
EndSwitch
EndFunc
|