[Bibliothek] Barcode für Delphi (Zint)

[Carsten2]

Fehler
in unit zint_gs1
in function ugs1_verify:

"reduced" in ustrcpy benötigt Länge von "temp"...

Code:

  if (strlen(temp) < src_len + 5) then
  begin
    SetLength(reduced, src_len + 5); //hinzugefügt
    ustrcpy(reduced, ArrayOfCharToArrayOfByte(temp));
    Result := 0; exit;
  end;