Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизШтрих кода Найти похожие ветки
← →
Andy Ice (2002-01-15 09:38) [13]Если все еще нужно, мыльни AndyIce(a)mail.ru (только вместо (а) собачку подставь), пришлю компонент, в нем алгоритм реализации для многих кодов есть. Сам оттуда для 2-5 выдергивал. Достаточно просто. Могу и свой компонент для примера послать (только там для 2-5, впрочем уже говорил:)). Попростому: создаешь массив, в котором расписаны кода для каждого символа,
const
code25: array["0".."9", 1..5] of char =
(
("0", "0", "1", "1", "0"), {"0"}
.....
("0", "1", "0", "1", "0") {"9"}
);
а потом просто формируешь штрихкод (в fTitle код):
// start code
Rectangle(x, fTop, x + fL, y + (h div 2));
x := x + 2 * fL;
Rectangle(x, fTop, x + fL, y + (h div 2));
x := x + 2 * fL;
// bar code
For i := 1 To Length(fTitle) div 2 do
For J := 1 To 5 Do
Begin
If code25[fTitle[i*2-1], j] = "1" Then
x2 := x + Round(fL * fK)
Else
x2 := x + fL;
Rectangle(x, fTop, x2, y);
x := x2;
If code25[fTitle[i*2], j] = "1" Then
x := x + Round(fL * fK)
Else
x := x + fL;
End;
// stop code
Rectangle(x, fTop, x + Round(fL * fK), y + h div 2);
x := x + fL + Round(fL * fK);
Rectangle(x, fTop, x + fL, y + h div 2);
для твоего случая чуть сложнее, но не очень
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c