User Function Exemplo()
Local cSecao := "", cChave := "", cValor := "", cRecuperado := "", cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função GetProfString |
//+----------------------------------------------------------------------------+
cSecao := "SecaoExemplo"
cChave := "ChaveExemplo"
cValor := "ConteudoExemplo"
WriteProfString(cSecao, cChave, cValor)
cRecuperado := GetProfString(cSecao, cChave, "undefined")
cMensagem += "Seção [" + cSecao + "], chave [" + cChave + ; "] e conteúdo [" + cValor + "] " + ;
IIf(!(cRecuperado == cValor), "não ", " ") + "gravado e recuperado com sucesso!"
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do GetProfString")
|