• sexta-feira , 12 fevereiro 2016

Navegando por " Delphi "

Dicas e novidades sobre Delphi

Remove acentos de uma string

Função que remove acentos de uma string em Delphi function RemoveAcentos(Str:String): String; Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’; SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)<>0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; ...

Leia mais