Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Двоичный формат 


Лана Розанова   (2002-02-02 05:08) [0]

Как перевести число в двоичный формат и наоборот?
СПАСИБО!!!



Mbo   (2002-02-02 06:01) [1]

из RX
function IntToBin(Value: Longint; Digits, Spaces: Integer): string;
begin
Result := "";
if Digits > 32 then Digits := 32;
while Digits > 0 do begin
if (Digits mod Spaces) = 0 then Result := Result + " ";
Dec(Digits);
Result := Result + IntToStr((Value shr Digits) and 1);
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.041 c
1-57099           greenrul              2002-01-20 09:19  2002.02.18  
Глюки с картинками


1-57067           DimaIv                2002-02-01 17:53  2002.02.18  
Как сделать чтобы в PoppMenu Itemsы отмечались галочками


7-57235           Русский               2001-11-12 14:22  2002.02.18  
Поделитесь кодом а :)))


3-57004           pum5a                 2002-01-24 00:54  2002.02.18  
BLOB и SQL запрос


3-57019           red                   2002-01-24 00:23  2002.02.18  
проблема с фильтрацией