quitar caracteres especiales

[radenf]

Estimado cd.rafael :

Yo utilizo la siguiente función que algún publicó alguien aquí en el foro.

Código Delphi [-]
function EliminarCaracter(const cadena: string) : string;
const
CA = '^,<>/_:;.()!"$%&=?¿¡*+';
CB = '                      ';
var
Ch: Char;
L, P: Integer;
Source, Dest: PChar;
begin
L := Length(cadena);
SetLength(Result, L);
Source := Pointer(cadena);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
P := Pos(Ch, CA);
if P > 0 then
Dest^ := CB[P]
else
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;

Esta cambia el carácter por un espacio.
En CA colocas los caracteres que quieres cambiar y en CB el que quieres que aparezca.
Ojalá te sirva.

Saludos