Перевод из 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));

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;
Тоже просто.

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