EAN13 vonalkód generálása
Elküldve: 2016.09.28. 09:16
Szükségem lenne EAN13 típusú vonalkódokat generálni. Azt tudom, hogy a 13. karakter egy ellenőrző érték. Ezt hogy kell kiszámolni?
Tisztelettel, kalmann
Tisztelettel, kalmann
Felhasználói és szoftver fórum
http://www.stock2000szamlazo.hu/forum/
http://www.stock2000szamlazo.hu/forum/viewtopic.php?f=14&t=62
Kód: Egész kijelölése
function GenEAN13(mKod: String): String;
var
i,CalcChecksum,chk: integer;
Odd: boolean;
begin
CalcChecksum := 0;
i := Length(mKod);
Odd := True;
while i > 0 do begin
If Odd then
CalcChecksum := CalcChecksum + StrToInt(mKod[i]) * 3
else
CalcChecksum := CalcChecksum + StrToInt(mKod[i]);
Odd := not Odd;
Dec(i);
end;
chk := 0;
While ((CalcChecksum + chk) mod 10) <> 0 do Inc(chk);
Result := mKod + InttoStr(chk);
end;