Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизПеревод из 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c