Текущий архив: 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.012 c