Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.027 c
1-57138           KvORubin              2002-02-03 18:39  2002.02.18  
Файл.ТХТ Помогите ПОЖАЛУЙСТО !!!


14-57191          dido                  2001-12-28 09:09  2002.02.18  
Хочу совет


4-57254           ikar                  2001-12-19 10:10  2002.02.18  
Передача сообщения своей программе


6-57159           SkyR                  2001-11-23 01:21  2002.02.18  
Такой вот вопрос по отправке e-mail с пом Delphi 5...


1-57095           Ghost.                2002-02-01 10:20  2002.02.18  
Cчетчик времени