eliminar caracteres especiales

[Wbarrantes]

tengo una cadena que quiero que quite todo los caracteres especiales como (,?/%"^¨... etc... existe alguna funcion especifica para hacerlo?

[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.

[Wbarrantes]

Grasias Ecfisa, ya tengo un procedimiento que realiza la limpieza...

Código Delphi [-]
begin
Largo:= Length (texto)+1 ;
contador:=1;
  while contadordo
  begin
    valor := Ord(texto[contador]);
    if (valor>LimiteInferior) and (Valorthen
      begin
        TextoLimpio:= TextoLimpio+ texto[contador];
      end  ;
    if Valor=39 then
      begin
        TextoLimpio:= TextoLimpio+' ';
      end;
    contador:=contador+1;
  end;
 Limpiar:= TextoLimpio;
end;

en este caso por medio del codigo Ascii y con unas variantes...
pero si me interesa saber especificamente si existe algun procedimiento de Delphi como tal.... como el Uppercase y funciones similares...

igual agradesco mucho tu aporte...

[radenf]

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;

Estimado ecfisa :

Quisera saber como se podría en esta función reemplazar el carácter eliminado por un espacio.
Saludos y gracias

[[Al González]]

Empezado por radenf

Quisera saber como se podría en esta función reemplazar el carácter eliminado por un espacio.

Desconozco si será la mejor opción en tu cso, pero puedes hacerlo con una función como la siguiente. Esta sustituye los caracteres que le indiques por otro en particular:

Código Delphi [-]
  Function ghReplace (Const Value :String; Const Chrs :TSysCharSet;
    Const NewChr :Char) :String;
  Var
    I :Integer;
  Begin
    Result := Value;

    For I := 1 To Length (Result) Do
      If Result [i] In Chrs Then
        Result [i] := NewChr;
  End;

Ejemplo de llamada:

Código Delphi [-]
String2 := ghReplace (String1, [#0..#31], ' ');

La sentencia anterior obtiene una cadena (String2) a partir de otra (String1), reemplazando todos los caracteres ASCII "invisibles" por un espacio. Y claro está, puedes usar la misma variable String para guardar el resultado:

Código Delphi [-]
S := ghReplace (S, [#0..#31], ' ');

O, como cualquier otra función, pasar su resultado directamente a otra rutina:

Código Delphi [-]
Objeto.HacerAlgoCon (ghReplace (S, [#0..#31], ' '), True);

El tipo TSysCharSet (conjunto de caracteres) es de la unidad estándar SysUtils .

[radenf]

Muchas gracias [Al Gonzalez].
Esta función la necesito para mejorar el aspecto visual de varios grids que reciben información de servidores, cuyos datos no siempre son ingresados adecuadamente.
La probaré y te cuento.
Saludos