Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.05;
Скачать: CL | DM;

Вниз

Перевод из 16 системы в двоичную   Найти похожие ветки 

 
Anatoliy112   (2002-11-24 15:54) [0]

Подскажите как попроще перевести число из шестнадцатиричного вида в двоичный?
То биш есть некое число напр. 21ff - его надо записать как 001010101 и т.д. - где каждая цифра значит или нормальную работу или отказ.


 
ret_Avr   (2002-11-24 19:34) [1]

function TForm1.ByteToBin(value:Byte):string;
var i:integer;
begin
for i:=0 to 7 do
Result:=Result+Chr(byte(((Value shl i) and $80)=$80)+$30);
end;

Ну и типа
var w:word;
w:=$21FF;
Caption:=ByteToBin(HiByte(w))+" "+ByteToBin(LoByte(w));


 
Vlad1 ©   (2002-11-24 20:27) [2]

function LongWordToBit(w:longword):String;
const ArBin:array[0..15] of String[4]=("0000","0001","0010","0011","0100","0101","0110","0111","1000","1001",1010","1011","1100","1101","1110","1111");
var i:integer;
begin
result:="";
for i:=1 to 8 do
result:=result+ArBin[strtoint("$"+inttohex(w,8)[i])];
end;

Тоже просто.



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

Текущий архив: 2002.12.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
1-14507
ev1972
2002-11-26 09:51
2002.12.05
Преобразование Image BMP -> RLE


14-14760
Tornado
2002-11-14 16:24
2002.12.05
Еще вопрос по Web


3-14469
b-Ars
2002-11-14 15:41
2002.12.05
Поиск в Memo-поле


1-14564
ret_Avr
2002-11-24 19:43
2002.12.05
Как StringGrid отправить в Word?


1-14677
Petr2002
2002-11-25 23:26
2002.12.05
Првет народ !