Einzelnen Beitrag anzeigen

Carsten2

Registriert seit: 14. Jun 2010
22 Beiträge
 
Delphi 4 Standard
 
#113

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 4. Nov 2013, 13:55
Fehler in unit zint_upcean

in function eanx
local_source kann länger als 20 sein:
So tritt der Zeigerfehler jedenfalls nicht mehr auf!?
tritt auf mit BARCODE_EANX_CC Primary "012345678905+123", also falscher Add-on Länge...

Code:
  //SetLength(local_source, 20);//Alt
  SetLength(local_source, 41);//Neu

  //for reader := 0 to ustrlen(local_source) do //Alt
  //  if (source[reader] = Ord('+')) then with_addon := TRUE;//Alt
  for reader := 0 to ustrlen(local_source) - 1 do //Neu
    if (local_source[reader] = Ord('+')) then with_addon := TRUE;//Neu
in upcean.c ebenfalls bis <=!?

in procedure upce
noch einen:
Code:
  //for i := 0 to ustrlen(source) do //Alt
  for i := 0 to ustrlen(source)-1 do //Neu
    case Chr(parity[i]) of
      'A': lookup(NEON, EANsetA, source[i], dest);
      'B': lookup(NEON, EANsetB, source[i], dest);
    end;
in upcean.c ebenfalls bis <=!?

Geändert von Carsten2 ( 4. Nov 2013 um 14:32 Uhr)
  Mit Zitat antworten Zitat