Histórico da Página

ValType ( < Variavel> 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