Como pasar de string a integer.

[Alejandro73]

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