Как

← →
Balkon (2003-09-19 11:32) [0]

Приветствую мастера! Извините за возможно некорректное изложение.
Вопрос следующий: Есть файл, содержащий 16-ти разрядное число, каждый бит из которого для меня является определенным флагом (0 или 1). Как мне извлеч эти 16 значений 0 или 1? Заранее спасибо.

← →
Плохиш_ (2003-09-19 11:36) [1]

and, shr, shl - F1

← →
MBo © (2003-09-19 11:36) [2]

(wordvar shr (bitnum-1)) and 1

← →
WihOut Any ... (2003-09-19 12:35) [3]

В каом виде число в файле? Или каким типом ты его считываешь? (SmallInt, Word ???)

← →
Balkon (2003-09-19 12:44) [4]

Считываю типом Word

← →
WihOut Any ... (2003-09-19 12:48) [5]

Куда сбросить пример?

← →
BillyJeans © (2003-09-19 12:55) [6]

изучай логические операции над битами...

← →
WihOut Any ... (2003-09-19 12:56) [7]

function DecToBin(integ:Word):string;
begin
i1:=integ;
i2:=i1;
Repeat
if (i1 div 2) = 0 then us1:=true;
i2:=i1; i2:=i2 mod 2;
i1:=i1 div 2;
s1:=IntToStr(i2)+s1;
until us1=true;
DecToBin:=s1;
end;

← →
BillyJeans © (2003-09-19 12:57) [8]

WihOut Any ... (19.09.03 12:56) [7]

а чем IntToBin не устроил?

← →
Balkon (2003-09-19 13:32) [9]

>WihOut Any. Cпасибо, все работает. Стыдно что сам не дотумкал..

>BillyJeans ©. IntToBin - это стандартная функция? В моих Дельфях Хелп молчит на счет IntToBin.

← →
WihOut Any ... (2003-09-19 19:29) [10]

Balkon (19.09.03 11:32)
http://www.delphikingdom.com/lyceum/seminar.asp?partID=4&LessonID=11

Как Найти похожие ветки