NoAcento

NoAcento

22 de novembro de 2016 0

Remove acentuação de uma string

Exemplo:

//
cGet := "Configurações"
cSemAcento := NoAcento(AnsiToOem(AllTrim(cGet))), 
MsgInfo(cSemAcento))
//Retorno: Configuracoes