eliminar caracteres especiales

[ecfisa]

Hola Wbarrantes.

existe alguna funcion especifica para hacerlo?

No conozco (no quiere decir que no haya), pero es muy secillo hacerte una que lo haga:

Código Delphi [-]
function QuitarEspeciales(const Cad: string): string;
const
  VALIDOS=[' ','0'..'9','A'..'Z','a'..'z','á','é','í','ó','ú'];
var
  i: Integer;
begin
  Result:= '';
  for i:= 1 to Length(Cad) do
   if Cad[i] in VALIDOS then Result:= Result+Cad[i]
end;

Ejemplos de llamada:

Código Delphi [-]
var
  st: string;
begin
   howMessage(QuitarEspeciales('Me costó $100,| #%en& el c#omercio')); // muestra: 'Me costó 100 en el comercio'
   st:= QuitarEspeciales('Me costó $100,| #%en& el c#omercio');
   ...

Podés agregar o eliminar caracteres a considerar como válidos en la constante VALIDOS.

Saludos.