Fórum trocar acentuação no paradox #168450

Tente isto:

Function TiraAcento( Texto: String ):String
var KI: Integer;
begin
For KI := 0 to Length(Texto) do begin
case Texto[KI] of
´á´, ´à´, ´â´, ´ä´, ´ã´: Texto[KI] := ´a´;
´Á´, ´À´, ´Â´, ´Ä´, ´Ã´: Texto[KI] := ´A´;
´é´, ´è´, ´ê´, ´ë´: Texto[KI] := ´e´;
´É´, ´È´, ´Ê´, ´Ë´: Texto[KI] := ´E´;
´í´, ´ì´, ´î´, ´ï´: Texto[KI] := ´i´;
´Í´, ´Ì´, ´Î´, ´Ï´: Texto[KI] := ´I´;
´ó´, ´ò´, ´ô´, ´ö´, ´õ´: Texto[KI] := ´o´;
´Ó´, ´Ò´, ´Ô´, ´Ö´, ´Õ´: Texto[KI] := ´O´;
´ú´, ´ù´, ´û´, ´ü´: Texto[KI] := ´u´;
´Ú´, ´Ù´, ´Û´, ´Ü´: Texto[KI] := ´U´;
´ç´: Texto[KI] := ´c´;
´Ç´: Texto[KI] := ´C´;
´[´: Texto[KI] := ´ ´;
´]´: Texto[KI] := ´ ´;
´!´: Texto[KI] := ´ ´;
´@´: Texto[KI] := ´ ´;
´#´: Texto[KI] := ´ ´;
´$´: Texto[KI] := ´ ´;
´^´: Texto[KI] := ´ ´;
´&´: Texto[KI] := ´ ´;
´*´: Texto[KI] := ´ ´;
´}´: Texto[KI] := ´ ´;
´{´: Texto[KI] := ´ ´;
´\´: Texto[KI] := ´ ´;
´ª´: Texto[KI] := ´A´;
´º´: Texto[KI] := ´O´;
end;
end;
TiraAcento := ( Texto );
end;


Utilize para cadastro de artigo, cliente, fornecedor, etc... por causa dos caracteres especiais.


Espero ter ajudado.


Geraldo