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


Essystem

Essystem

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar