Funcao Para Trocar Letras Acentuadas...

[Guest - Felipe -]

Caros amigos,

Tem no delphi uma funcao para trocar letras acentuadas como existe no php?

Por favor não envie para o fourm de delphi. <- VIRAO ISSO GALERA? HEHEH*

La praticamente não consigo respotas...

agradeco e aguardo.

Felipe.

-------------------------------------

* = Editado por CorpoSemAlma

------------------------------------

Editado Julho 15, 2004 por Corposemalma

[Jack]

use str_replace ou ereg

[Guest - Felipe -]

No Delphi??

[taudujas]

Tenta usar o eregi_replace , o Gladisson fez um script deste para tirar acentos, tenta adaptar.

[Guest - Felipee -]

Gente,

Sei que existe esta funcao no php.

Mas quero realizar este procedimento no DELPHI?

Existe esta funcao no delphi?

Grato.

Felipee.

[taudujas]

ah, voce esta postando em PHP, poste no Forum de Delphi que eles responderam melhor.

[ppgsalomao]

Vou mover para lá ...

[Corposemalma]

Aiiii meuuuu Deuuuss rapá! <- e olha que sou ATEU heheh ^^

Num devia ajudá não, sô!

Dá uma procurada cara!

Oia o que achei no www.delphi.eti.br!

Tira os acentos de uma string:

{A função abaixo pega um string informada como parâmetro e retira todas as letras acentuadas substituindo-as por letras correspondentes sem acento. }
function AnsiToAscii ( str: String ): String;
var
i: Integer;
begin
for i := 1 to Length ( str ) do
case str[i] of
'á': str[i] := 'a';
'é': str[i] := 'e';
'í': str[i] := 'i';
'ó': str[i] := 'o';
'ú': str[i] := 'u';
'à': str[i] := 'a';
'è': str[i] := 'e';
'ì': str[i] := 'i';
'ò': str[i] := 'o';
'ù': str[i] := 'u';
'â': str[i] := 'a';
'ê': str[i] := 'e';
'î': str[i] := 'i';
'ô': str[i] := 'o';
'û': str[i] := 'u';
'ä': str[i] := 'a';
'ë': str[i] := 'e';
'ï': str[i] := 'i';
'ö': str[i] := 'o';
'ü': str[i] := 'u';
'ã': str[i] := 'a';
'õ': str[i] := 'o';
'não': str[i] := 'n';
'ç': str[i] := 'c';
'Á': str[i] := 'A';
'É': str[i] := 'E';
'Í': str[i] := 'I';
'Ó': str[i] := 'O';
'Ú': str[i] := 'U';
'À': str[i] := 'A';
'È': str[i] := 'E';
'Ì': str[i] := 'I';
'Ò': str[i] := 'O';
'Ù': str[i] := 'U';
'Â': str[i] := 'A';
'Ê': str[i] := 'E';
'Î': str[i] := 'I';
'Ô': str[i] := 'O';
'Û': str[i] := 'U';
'Ä': str[i] := 'A';
'Ë': str[i] := 'E';
'Ï': str[i] := 'I';
'Ö': str[i] := 'O';
'Ü': str[i] := 'U';
'Ã': str[i] := 'A';
'Õ': str[i] := 'O';
'não': str[i] := 'N';
'Ç': str[i] := 'C';
end;
Result := str;
end; 

Adiconada dia: 13/06/03 às 13:45:52, por: Felipe Monteiro Idem, código diferente

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;  

Adiconada dia: 24/06/03 às 11:32:08, por: Felipe Monteiro Mais UMA!!!

Function RemoveAcentos(Str:String): String;

Const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
Begin
if Pos(Str[x],ComAcento)<>0 Then
begin
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
end;
end;
Result := Str;
end;  

Adiconada dia: 24/01/04 às 15:36:19, por: Jose Ribeiro

Exemplo com fontes (precisa estar logado no site para acessar! Cadastre-se de graça, log e depois acesse o link)

http://www.delphi.eti.br/downloads.php?id=...11309cd20ef9305

POWERED BY SESSAO DE LINKS FORUM DE DELPHI SCRIPT BRASIL<- clique aqui e veja!

Outra: no fórum de Delphi ninguém dá respostas (código pronto) e sim AJUDA! <- duas coisas totalmente diferentes

[Capablanca]

Sem comentários FELIPE. Lastimável esta sua atitude de criticar o fórum.

Dê uma olhada lá no FÓRUM do Delphi e veja a quantidade de REPLIEs que o pessoal dá, tentando ajudar os outros colegas. Se você não conseguiu uma determinada resposta é porque a galera não sabia mesmo (nem sempre dá pra saber tudo).

Já mencionei em outra ocasião que este fórum não exerce nenhuma função CONSULTIVA. Tudo o que ocorre aqui é na base da amizade e consideração uns pelos outros. Além disso, hoje eu ajudo, amanhã serei eu quem estarei precisando e assim agente vai caminhando.

Pra você querer exigir alguma coisa, pague por ela (existem algumas empresas que fornecem consultoria em Delphi e você poderá pagar pelo serviços delas). Agora, não venha exigir nada aqui do pessoal.

O pior é que sua dúvida é tão simples de ser resolvida (há dezenas de códigos prontos implementando esta função de retirar acentos), que mais parece que você sequer deu uma simples procurada. Já postou a dúvida e pronto, o pessoal que se vire em procurar algo pra mim. Bem, em todo caso, agente está sempre aqui pra tentar resolver qualquer questão. Não faça mais isto não.

Valeu CorpoSemAlma pela demonstração de que "dois erros não justificam um" e pela consideração para com o Felipe.

[Corposemalma]

Felipeee... Se tiver funcionando me avisa pra eu fechar o tópico, tá!???