Prueba con este codigo
Hola yo utilizo la siguiente funcion
Declaracion
Function QuitarLetras(cadena: String):String;
Detalle de la Funcion
Function QuitarLetras(cadena: string): string;
var
i: integer;
begin
for i := 1 to Length(cadena) do
if cadena[i] in ['0'..'9'] then
Result := Result + cadena[i];
end;
Llamada
QuitarLetras(ubicciondelstring)
Esto te dejara solo los numeros, pero como string, tienes luego que utilizar la instruccion para pasar de strin a integer.
Espero te sirva.
Saludos
Alejandro
Valparaiso - CHILE
__________________
Los muertos en CRISTO de sus tumbas volveran y los que vivimos en las nubes nos levantara .......
|