Re: [delphi-br] =?ISO-8859-1?Q?Acentua=E7=E3o?= em Pesquisa!!!

Fri, 22 Oct 2004 10:14:52 -0700 

Aí vai uma função que remove acento. Você pode acrescentar os caracteres
esperados e substituir pelos que desejar.
Espero que ajude.

function TFrmPerformanceOper.RemoveAcento(Str:String): String;
Const
ComAcento = 'àâêôûãõáéíóúçüÀ ÔÛÃÕÁÉÍÓÚÇÜ.,;/\()';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU1234567';
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;

Atenciosamente,

Danilo Antônio Leite
Arcadian Tecnologia SA
[EMAIL PROTECTED]
(31)3241-8228 ramal 216



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a