Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Quitar todos los números de una cadena

La siguiente función quita cualquier número que contuviera la cadena que se pase como parámetro:

Código Delphi [-]
function QuitarNumeros(const cadena: string) : string;
var
  i: integer;
begin
  for i := 1 to Length(cadena) do
    if not (cadena[i] in ['0'..'9']) then
      Result := Result + cadena[i];
end;
Responder Con Cita