Как преобразовать строку типа стринг, в массив боолеан

[niello]

Помогите!
Как преобразовать строку типа стринг, в массив боолеан.
То есть:
Имею я строку - это последовательность символов, каждый символ это какая то буква которую необходимо разложить по 1 и 0, и из них собрать один юольшой массив.

 

[morpheus]

Как - как .. руками, взять строку пройтись по всем єлементам и заполнить масив boolean в зависимости от значений каждого элемента строки

 

[root]

Для: niello
можно ord(), вытащить код симавола потом перевести его в bin
ord('%')=37
37:2=18(1)
18:2=9(0)
9:2=4(1)
4:2=2(0)
2:2=1(0)

затем
var ArrayBoolean : array of boolean
len() длину получившейся строки
затем
SetLength(Arrayboolean, длина);' длина получившегося массива
и for i:=1 to длина
условия lf

Arrayboolean:=

 

[niello]

О мне как раз насчет ord и надо было...
Сенкс

 

[root]

Для: niello
+ в репу

 

[European]

<!--QuoteBegin-root+15:11:2007, 13:54 -->
<span class="vbquote">(root @ 15:11:2007, 13:54 )</span><!--QuoteEBegin-->+ в репу

[snapback]85861" rel="nofollow" target="_blank[/snapback]​

[/quote]
Вымогатель

 

[root]

Для: European
решил действовать по методу Morpheus'a //место флуда репутация )))

 

[niello]

О чем это вы?

 

[root]

Для: niello
это + рядом с репутацией

 

[morpheus]

<!--QuoteBegin-root+16:11:2007, 05:05 -->
<span class="vbquote">(root @ 16:11:2007, 05:05 )</span><!--QuoteEBegin-->решил действовать по методу Morpheus

[snapback]85959" rel="nofollow" target="_blank[/snapback]​

[/quote]
????
по какому такому методу?