Results 1 to 2 of 2
Thread: âàëèäàöèÿ íà áàðêîä
Hybrid View
-
2nd November 2005 14:04 #1Registered User
Join Date: Jul:2002
Location: The Bog of Eternal Stench
Posts: 345
âàëèäàöèÿ íà áàðêîä
Íÿêîé èìà ëè íà ðàçïîëîæåíèå ôóíêöèè çà âàëèäàöèÿ íà áàðêîäîâå? Ïî-êîíêðåòíî íà ÅÀÍ 12, UPC A.
Ìîæå è ñàìî êàòî àëãîðèòúì...
-
2nd November 2005 15:51 #2Òàêà ñå èç÷èñëÿâà êîíòðîëíàòà ñóìà (Delphi):
Originally Posted by v_mihaylov
À çà ïðîâåðêà ùå òðÿáâà äà ñè íàïðàâèø äðóãà ôóíêöèÿ.Code:function CheckSumModulo10(const data:string):string; var i,fak,sum : Integer; begin sum := 0; fak := Length(data); for i:=1 to Length(data) do begin if (fak mod 2) = 0 then sum := sum + (StrToInt(data[i])*1) else sum := sum + (StrToInt(data[i])*3); dec(fak); end; if (sum mod 10) = 0 then result := data+'0' else result := data+IntToStr(10-(sum mod 10)); end;

ï.ï.
Ìîæå äà ïîãëåäíåø òóê è òóêLast edited by SAGE; 2nd November 2005 at 15:58.




Reply With Quote
Íå âúçìîæíîñò äà èçêëþ÷à êîìïþòúðà
7th May 2023, 16:02 in Îáù ôîðóì çà PC õàðäóåð