Extraer un numero de un sttring??

[danytorres]

Buenos dias amigos del foro, tiempo sin visitarlos, actualmente estoy trabajando con paradox, en una de las tablas existe un campo string el mismo tiene unos numero que necesito extraer de todos los registros de esa tabla en campo sienpre tiene lo mismo lo que cambian son los numeros un ejemplo del contenido del campo es este;

NC 5456,#CANT DEV
NC 5458,#CANT DEV
NC 5460,#CANT DEV
NC 5401,#CANT DEV

siempre el string comienza con NC, lo que necesito es el 5456 la parte numerica, como lo puedo hacer.

[[Bicho]]

Hola pues puede usar la función copy y obtener el substring ( si siempre son cuatro números será fácil)

Código Delphi [-]
Valor := Copy(Table1.Fields[0].AsString, 3, 4) // 3 es la posición inicial a copiar y cuatro la longitud de texto a copiar

Luego puedes hacer comprobaciones de si es un entero o no capturando las excepciones.

Tambien puedes hacer un bucle carácter a carácter del String a partir del NC y copiar los números del string a una variable auxiliar hasta que encuentres un carácter no numérico.

Código Delphi [-]
var cadena, aux : String;
  Cadena := Table1.Fields[0].AsString; 
  aux := '':
  for x := 3 to Length(Cadena)-1 do begin
    if Cadena[x] in ['0'..'9'] then aux := aux + Cadena[x]
    else break;
  end;

Espero te sirva.

Saludos

[roman]

Otra opción: si los valores están así de bonitos, esto es, el número siempre está en esa posición y es de cuatro caracteres, puedes usar un substring en la consulta sql:

Código SQL [-]
select substring(el_campo from 4 for 4) from la_tabla

// Saludos