Desglosar un número en campos

[dsa132132]

Hola gente;

En mi aplicación introduzco en un Edit1 un código de barras mediante una pistola lectora. Mi problema es que quiero desglosar ese número en varios campos para guardarlos por separado en la base de datos.

Quisiera saber si esto se puede hacer directamente desde la pistola lectora o por código desde el mismo formulario, programando un boton que me desglose el número del Edit1 en diversos edits.

Muchas gracias por todo!

[Neftali [Germán.Estévez]]

Hacerse, pues sí se puede hacer.

Empezado por dsa132132

...Quisiera saber si esto se puede hacer directamente desde la pistola lectora...

Desde la pistola no lo creo, piensa que la pistola es como un teclado (la mayoría), simnplemente "escupe" números y realmente no sabe donbde van a parar si a un formulario, a un editor, a una celda de una hoja excel,... por lo tanto no le puedes decir dónde debe guardar cada número.

Empezado por dsa132132

...o por código desde el mismo formulario...

Aquí si se puede; Lo más lógico sería en los eventos OnChange/OnExit del control Edit donde estás ingresando el código de barras.
Para ello puedes utilizar la función Copy de delphi que básicamente te permite "cortar" una cadena en pedazos.

Código Delphi [-]
const
  CAD1 = '1234567890';
var
  Str:String;
begin
  Str := Copy(CAD1, 1, 4);   // str vadrá '1234'
  Str := Copy(CAD1, 3, 2);   // Str vadrá '34'

Si miras la ayuda verás que es una función sencilla.

Empezado por dsa132132

...programando un boton que me desglose el número del Edit1 en diversos edits...

Igual que el anterior, sólo que el código lo pondrás en el OnClick del botón en lugar deuno de los eventos comentados antes.

[dsa132132]

Muchas gracias Neftali!!