User Function Exemplo()
Local cSecao := ""
Local cChave := ""
Local cValor := ""
Local cRecuperado := ""
Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função WriteProfString |
//+----------------------------------------------------------------------------+
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 com sucesso!"
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
MsgInfo(cMensagem, "Exemplo do WriteProfString")
Return |