Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

Отсутствовал некоторое время, но думаю, что
2 BillyJeans © (19.09.03 12:57) [8]
парсить String намного проще чем ...

---

← →
Anatoly Podgoretsky   (2003-09-19 21:41) [11]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.011 c