Форум: "Основная";
Поиск по всему сайту: 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.013 c
1-57083           Hecker                2002-02-01 02:59  2002.02.18  
Может кто-нить сталкивался с такой проблемой?


3-57017           zolotov               2002-01-23 08:07  2002.02.18  
BLOB поля надо записать любой формат рисунка


1-57061           Амелин Вадим          2002-02-01 13:39  2002.02.18  
Width и Height не работают


3-57026           Romul                 2002-01-24 17:25  2002.02.18  
Как организовать поиск по полю в DBGrid?


1-57153           ola                   2002-02-04 09:49  2002.02.18  
crazy query