Registros com acento, tirar acento

Question

OlaTenho um banco de dados com 10.000 registros e todos foram cadastrados com acentos ( � � � � �es ) e estou trabalhando com impressora fiscal q n�o aceita isso, gostaria de saber se algu�m possue um...

4_olho · Answer

Ao clicar no bot�o pesquisa e colocando como assunto �acento�, recebi v�rias solu��es, dentre as quais esta, sugerida pelo Toshio.

function RemoveAcentos(Str:String): String; 
{Remove caracteres acentuados de uma 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;

Procure fazer uso da Pesquisa, � uma �tima fonte de resiltados. No t�pico de resposts r�pidas encontrar� v�rias dicas interessantes.

Barcelos · Answer

Ol� amigo...Tenho um componente de minha autoria que faz este trabalho.Se estiver interessado, posso envi�-lo para voc�.N�o faz milagres, mas j� ajuda.Barcelososbarcelos@hotmail.com...

F�rum Registros com acento, tirar acento #174028