[Bibliothek] Barcode für Delphi (Zint)

[Carsten2]

Fehler gefunden:
EAN-14 und NVE-18:

in ean_14 und nve_18 in der Unit zint_code128.pas

in function nve_18

Code:

    //if((i and 1) <> 0) then //Alt
    if((i and 1) = 0) then //Neu
      Inc(total_sum, 2 * StrToInt(Chr(source[i])));

in function ean_14

Code:

    //if ((i and 1) <> 0) then //Alt
    if ((i and 1) = 0) then //Neu
      Inc(count, 2 * StrToInt(Chr(source[i])));