Filtrar Letras Acentuadas

12/12/2003

1

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


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;


Responder