Histórico da Página

#define CRLF Chr(13) + Chr(10)
//+----------------------------------------------------------------------------+
//|Exemplo de uso da função EncodeUTF8EncodeUTF16 e DecodeUTF8DecodeUTF16                          |
//+----------------------------------------------------------------------------+
User Function Exemplo4()
  Local cTexto := ""
  Local cEncodeUTF16 := ""
  Local cDecodeUTF16 := ""
  Local cMensagem := "" 
  cTexto := "à noite, vovô kowalsky vê o ímã cair no pé do pingüim" 
  cTexto += "queixoso e vovó põe açúcar no chá de tâmaras do jabuti feliz." 
  cEncodeUTF16 := EncodeUTF16(cTexto) 
  cDecodeUTF16 := DecodeUTF16(cEncodeUTF16) 
  cMensagem := "Pangrama origem: [" + cTexto + "]" 
  cMensagem1 := "Texto -> UTF16: [" + cEncodeUTF16 + "]" 
  cMensagem2 := "UTF16 -> Texto: [" + cDecodeUTF16 + "]"
  MsgInfo(cMensagem, "Exemplo")
  MsgInfo(cMensagem1, "Exemplo")
  MsgInfo(cMensagem2, "Exemplo")
Return