ValType

ValType ( < xVariavel> ) --> cRet

(caracter)
• Retorna um caractere que identifica o tipo de dado informado.

Tipos de dados válidos:

#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
Local aArray := {}
Local bBloco := {|| .T.}
Local cCaractere := "Caractere", cMensagem := ""
Local dData := Date()
Local lLogico := .T.
Local nNumerico := 1024.2048
Local oObjeto := MSDialog():Create()
Local uUndefined := Nil
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função ValType |
//+----------------------------------------------------------------------------+ 
cMensagem += "[" + ValType(aArray) + "] Array" + CRLF 
cMensagem += "[" + ValType(bBloco) + "] Bloco de código" + CRLF 
cMensagem += "[" + ValType(cCaractere) + "] Caractere" + CRLF 
cMensagem += "[" + ValType(dData) + "] Data" + CRLF 
cMensagem += "[" + ValType(lLogico) + "] Lógico" + CRLF 
cMensagem += "[" + ValType(nNumerico) + "] Numérico" + CRLF 
cMensagem += "[" + ValType(oObjeto) + "] Objeto" + CRLF 
cMensagem += "[" + ValType(uUndefined) + "] Undefined"
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do ValType")

Preview