Codigo de Barras UCC/EAN 128

[ggram2]

Ami me funciono correctamente
modificando la siguiente funcion :

function Find_Code128C(c:string):integer;
var i:integer;
begin
if (Copy(C,1,1) = #$1D) then //FNC1 ggr
Begin
result := 102;
exit;
End
Else
for i:=0 to High(tabelle_128) do
begin
if tabelle_128[i].c = c then
begin
result := i;
exit;
end;
end;
result := -1;
end;

Este es un Ejemplo:

en el String le he adicionado el caracter de control chr(29)+chr(32)

bc.Text := Format('%s%s%s%s%s',
['4157709998000322802002579339000200', #$1D+chr(32), '39000000047500' #$1D+chr(32), '9620131107']);