PDA

Ver la Versión Completa : Quitar todos los números de una cadena


dec
07-06-2006, 21:04:33
La siguiente función quita cualquier número que contuviera la cadena que se pase como parámetro:


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;