Filtrar Letras Acentuadas
Como centralizar em um único lugar um filtro
que sirva para todo o sistema e que automaticamente
substitua as letras acentuadas para as convencionais ?
Obrigado
que sirva para todo o sistema e que automaticamente
substitua as letras acentuadas para as convencionais ?
Obrigado
Essystem
Curtidas 0
Respostas
Valdemar_d
12/12/2003
entre no site http://lloydsoft.no-ip.com/
baixe o dtDelphi, as dicas que contem nele irá te ajudar
function RemoveAcento(Str:String): String;
Const
ComAcento = ´àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;
SemAcento = ´aaeouaoaeioucuAAEOUAOAEIOUCU´;
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)<>0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;
baixe o dtDelphi, as dicas que contem nele irá te ajudar
function RemoveAcento(Str:String): String;
Const
ComAcento = ´àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;
SemAcento = ´aaeouaoaeioucuAAEOUAOAEIOUCU´;
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)<>0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;
GOSTEI 0