Problemas con codigo de barras

[[newtron]]

El problema es que la mayoría de los lectores están configurados para que si el primer carácter es un cero lo ignoren, entonces hay dos opciones:

1-Configurar el lector para que no ignore si comienza por cero.
2-No usar el cero como inicio del código de barras.

Saludos

[jfrancho]

Muchas gracias por las respuestas voy a probar de habilitar el dígito cero y luego les comento, saludos.-

[[newtron]]

Empezado por jfrancho

Muchas gracias por las respuestas voy a probar de habilitar el dígito cero y luego les comento, saludos.-

Como quieras, yo particularmente optaría por empezar los códigos de barras por un "1" por ejemplo y así no tienes que andar configurando cada lector que quieras usar.

saludos

[jfrancho]

como no he podido configurar el lector de códigos de barras para que lea ceros, lo he resuelto al problema de la siguiente forma:
le digo al edit que si los caracteres ingresados son iguales a 12, me agregue un carácter más, en mi caso un cero.
y este es el código:

Código Delphi [-]
var
    cant  : integer;
    cadena : string;
if (length(ecodi1.Text)=12) then
     begin
          Cadena:=' ';
          cant:=13-length(inttostr(strtoint(ecodi1.text)));
          for  x:=1 to  cant do
           cadena:=cadena+ '0';
           cadena:=cadena+inttostr(strtoint(ecodi1.text));
     end

funciona bien, si alguien tiene una solución mejor bienvenida sea, saludos y gracias por las respuestas.-

[[newtron]]

Bueno... la verdad es que si le vas a dar esa solución no tiene mucho sentido escribir tanto código. Podrías simplificar con esto....

Código Delphi [-]
if length(ecodi1.Text)=12 then 
  ecodi1.Text:='0'+ecodi1.Text;

[jfrancho]

Muchas Gracias Newtron, lo probé y funciona correctamente.
Saludos.-