Delphi заготовки

на основании статьи

http://www.ua.all.biz/guide/barcodes/

{
Пример вычисления контрольной цифры для определения подлинности товара
1. Сложить цифры, стоящие на четных местах:
8+0+2+7+0+1=18
2. Полученную сумму умножить на 3:
18x3=54
3. Сложить цифры, стоящие на нечетных местах, без контрольной цифры:
4+2+0+4+0+0=10
4. Сложить числа, указанные в пунктах 2 и 3:
54+10=64
5. Отбросить десятки:
получим 4
6. Из 10 вычесть полученное в пункте 5:
10-4=6
 }




// проверка на истиность штрихкода
Function TrueCode(codeText:string):boolean;
var x:integer;
    s1,s2,s3,s4,s5:integer;
begin
s1:=0;s3:=0;
for x:=1 to length(codeText)-1 do
 if x mod 2=0 then begin
 s1:=s1+strtoint(codeText[x])
 end else begin
 s3:=s3+strtoint(codeText[x]);
 end;
 s2:=s1*3;
 s4:=s3+s2;
 s5:=s4 mod 10;
 result:=(strtoint(codeText[length(cod ... Читать дальше »