Вверх ↑
Ответов: 139
Рейтинг: 4
#1: 2011-02-10 09:59:13 ЛС | профиль | цитата
Спасибо, оба совета помогли. Появился другой вопрос,- после преобразования нужно последовательность из 0 и 1 перевести в HEX. Вот пример


Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,21,105)
{
Width=236
Height=309
}
Add(ArrayEnum,5687074,259,126)
{
link(onItem,9801299:doAdd,[])
link(Array,15950967:Array,[])
}
Add(Button,12562957,189,126)
{
Left=20
Top=20
link(onClick,5687074:doEnum,[])
}
Add(ListBox,9801299,336,126)
{
Left=20
Top=60
Width=145
Height=185
}
Add(IntegerArray,15950967,259,70)
{
IntArray=['0'=1,'0'=1,'0'=0,'0'=0,'0'=0,'0'=0,'0'=1,'0'=1]
}

карма: 0

0
файлы: 1code_22485.txt [457B] [155]