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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira