Форум: "Основная";
Поиск по всему сайту: 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.011 c
3-57023           olden                 2002-01-24 16:25  2002.02.18  
порекомендуйте гридину


3-56989           Стас                  2002-01-23 12:35  2002.02.18  
Создание таблицы


1-57089           HDD                   2002-02-01 14:24  2002.02.18  
Люди добрые поскажите!


1-57103           Максимка              2002-02-02 14:11  2002.02.18  
Как обращаться к однотипным компонентам по их номерам?


14-57198          Кофейник              2001-12-27 10:32  2002.02.18  
HOT MAIL и NET Passport