[Bibliothek] Barcode für Delphi (Zint)

[Carsten2]

Fehler, die ich gefunden habe:
zint.pas
in function hibc:

Code:

  //for i := 1 to _length do
  for i := 0 to _length-1 do //geändert
    Inc(counter, posn(TECHNETIUM, source[i])) ;

in function ZBarcode_Encode:

Code:

  if (symbol.input_mode = GS1_MODE) then
  begin
    //for i := 1 to _length do
    for i := 0 to _length-1 do //geändert
    begin

zint_aztec.pas
in function aztec_runes:

Code:

  //strcpy(binary_string, '');
  for i := 0 to 28-1 do binary_string[i]:=#0;//geändert

Code:

if (ecc_codewords[4 - i] and v) <> 0 then binary_string[j] := '1' else
  //binary_string[j + 1] := '0';
  binary_string[j] := '0';//geändert

wer veröffentlicht weitere? Danke!