Показать сообщение отдельно
Старый 29.10.2009, 05:21   #188
Grifon3180
Новичок
 
Регистрация: 15.06.2009
Сообщений: 7
Отправить сообщение для Grifon3180 с помощью ICQ
По умолчанию

Все спасибо, вот решение этого вопроса. Скажем спасибо xynter


Создаешь свой элемент. Вставляешь бар-код...В инспекторе в Мемо пишешь вот этот код:

begin
if (LENGTH([Номер отдела])=1) then S1 := '00'+[Номер отдела];
if (LENGTH([Номер отдела])=2) then S1 := '0'+[Номер отдела];
if (LENGTH([Номер отдела])=3) then S1 := [Номер отдела];

if (LENGTH([Номер счета])=1) then S2 := '000000000'+[Номер счета];
if (LENGTH([Номер счета])=2) then S2 := '00000000'+[Номер счета];
if (LENGTH([Номер счета])=3) then S2 := '0000000'+[Номер счета];
if (LENGTH([Номер счета])=4) then S2 := '000000'+[Номер счета];
if (LENGTH([Номер счета])=5) then S2 := '00000'+[Номер счета];
if (LENGTH([Номер счета])=6) then S2 := '0000'+[Номер счета];
if (LENGTH([Номер счета])=7) then S2 := '000'+[Номер счета];
if (LENGTH([Номер счета])=8) then S2 := '00'+[Номер счета];
if (LENGTH([Номер счета])=9) then S2 := '0'+[Номер счета];
if (LENGTH([Номер счета])=10) then S2 := [Номер счета];
Memo := [STRTOFLOAT(S1+S2)];
end
Grifon3180 вне форума   Ответить с цитированием