User Function Exemplo()
Local cSecao := "", cChave := "", cMensagem := ""
Local nValor := 0, nRecuperado := 0
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função GetProfInt |
//+----------------------------------------------------------------------------+
cSecao := "SecaoExemplo"
cChave := "ChaveExemplo"
nValor := 86887
WriteProfString(cSecao, cChave, NToC(nValor, 10))
nRecuperado := GetProfInt(cSecao, cChave, 0)
cMensagem += "Seção [" + cSecao + "], chave [" + cChave + "] e conteúdo [" + cValToChar(nValor) + "] " + ;
IIf(!(nRecuperado == nValor), "não ", " ") + "gravado e recuperado com sucesso!"
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do GetProfInt")
|