Alteração de Palavras Acentuadas
Preciso substituir em um cadastro de cliente todas as letras acentuadas e ç por suas respectivas letras sem acento, como faço para localizar estas letras nos campos?
Roberto_conetsys
Curtidas 0
Respostas
Toshio
26/04/2003
Tenta isso aqui
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;
Espero ter ajudado.
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;
Espero ter ajudado.
GOSTEI 0
Roberto_conetsys
26/04/2003
Era exatamente isto que eu precisava, como tenho que passar o conteudo do cadastro sem acentuação para um aexportação de dados vou utilizar a sua função só na hora da exportação, assim fico com o cadastro como esta.
Muito obrigado. :D
Muito obrigado. :D
GOSTEI 0