Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Quitar todos los números de una cadena (https://www.clubdelphi.com/foros/showthread.php?t=80419)

dec 07-06-2006 21:04:33

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;


La franja horaria es GMT +2. Ahora son las 06:58:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi