Tomar una cadena numerica

[ecfisa]

Empezado por DasGrun

si todo tiene el mismo Formato OC#######.

Hola DasGrun.

Entonces la sugerencia de oscarac tiene que funcionar perfectamente.

Podrías probar usando:

Código Delphi [-]
edit1.Text := Copy(tabla1Campo.value, 3, MaxInt)

Pero no hace diferencia en cuanto al resultado que arroja.


Otra forma (pero más rebuscada) sería:

Código Delphi [-]
var
  s: string;
begin
  s:= tabla1.FieldByName('CAMPO').AsString;
  Delete(s,1,2);
  ShowMessage( s ); // o lo que hagas con el resultado...
end;

Un saludo.

Edito: ¿ Podrías especificar un poco mas el: 'no funciona' ? Es decir, te da otra cadena de la esperada, un error, ...?