Форум: "Основная";
Поиск по всему сайту: 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.029 c
4-57266           relaxer               2001-12-20 11:43  2002.02.18  
Помогите с Таймером


3-57005           nastuha               2002-01-18 09:50  2002.02.18  
Пожалуйста помогите советом в реализации метакуба..


7-57236           Apus                  2001-11-14 09:51  2002.02.18  
Cd-rom


1-57069           novomod               2002-01-31 14:24  2002.02.18  
HELP. Алгоритм.


14-57200          Nest                  2001-11-08 10:06  2002.02.18  
Нужен бланк(Экспорт платёжного поручения из 1С в Excel.)