Interleaved 2 of 5 not right ?

Comments

• Andreetje

  October 2012 edited 12:19PM

  I think i found the problem and solved id.
  
  frxbarcod.pas
  

  function TfrxBarcode.Code_2_5_interleaved:AnsiString;
  var
    i, j : integer;
    c : AnsiChar;
  begin
    result := '5050';   {Startcode}
      
    [b]//begin  change
    if Odd(Length(FText))  then
      FText := '0' + FText;
    //end  change[/b]
  
    if FCheckSum and (Length(FText) mod 2 <> 0) then
        FText := DoCheckSumming(FText);
  
    for i:=1 to Length(FText) div 2 do
    begin
      for j:= 1 to 5 do
      begin
        if tabelle_2_5[FText[i*2-1], j] = '1' then
          c := '6'
        else
          c := '5';
        result := result + c;
        if tabelle_2_5[FText[i*2], j] = '1' then
          c := '1'
        else
          c := '0';
        result := result + c;
      end;
    end;
  
    result := result + '605';    {Stopcode}
  end;
  

  
  Please change it in the next release
• gpi

  October 2012 edited 12:19PM

  I2/5 encodes pairs of digits
  http://en.wikipedia.org/wiki/Interleaved_2_of_5
• Andreetje

  October 2012 edited 12:19PM

  gpi wrote: »

  I2/5 encodes pairs of digits
  http://en.wikipedia.org/wiki/Interleaved_2_of_5

  
  
  I know..
  but when i enter an odd value to present the barcode it should add an leading zero, which is not implemented yet !
• Arthurabc

  October 2013 edited 12:19PM

  Andreetje wrote: »

  Hi,
  
  When i'm trying display the following barcode in interleaved 2 of 5 : 01677718010005 it displays 167771801000 as i scan it... somehow it loses the leading zero !
  
  Any fix for it ?

  
  hello, can this barcode in interleaved 2 of 5 help you ? hope it is useful.