Filtrar Letras Acentuadas
12/12/2003
0
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
Curtir tópico
+ 0
Responder
Posts
13/12/2003
Valdemar_d
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)