Форум: "Основная";
Текущий архив: 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