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, ...?

[DasGrun]

de ante mano muchas gracias a cada uno de ustedes.

La Solución esta en:

como el dato esta en un DBEDIT se creo un edit en el mismo formulario de la cual este estara como oculto y por medio del evento Onchange se digito Edit1.Text := Copy(DMTables.DT_ORDEN_COMPRAPONUMBER.AsString, 3, MaxInt);. lo que me dijo el amigo ecfisa. y lo copia correctamente.

esto es lo que andava buscando....

Gracias Gracias...me gusta el Mundo Clubdelphi