Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

dec -> bin   Найти похожие ветки 

 
maxz   (2004-04-13 19:35) [0]

Подскажите алгоритм перевода десятичных чисел (dec) в бинарную систему исчисления (bin)


 
Anatoly Podgoretsky ©   (2004-04-13 19:38) [1]

Деление на основание и взятие остатка


 
X9   (2004-04-13 20:01) [2]

Вот функция, переводит Byte в строку с двоичным значением переменной Byte:

Copyright (c) Rem

function ByteToBinStr(a_bByte: byte): string;
var
i: integer;
begin
SetLength(Result, 8);
for i := 8 downto 1 do
begin
  Result[i] := chr($30 + (a_bByte and 1));
  a_bByte := a_bByte shr 1;
end;
end;


 
Sam Stone ©   (2004-04-13 20:12) [3]

2Х9
function IntToBin(Value: cardinal): string;
Returns a binary string representation for an Integer value


 
X9   (2004-04-14 09:48) [4]

2Sam Stone
Где это вы нашли такую функцию? По крайней мере в help"е Delphi7 её нет. А вот функция, возвращающая строку со значением двоичного вида числа Integer(взято из AVL):


function IntToBin(Value: integer; Digits: integer): string;
var
i: integer;
begin
result := "";
for i := 0 to Digits - 1 do
 if Value and (1 shl i) > 0 then
  result := "1" + result
 else
  result := "0" + result;    
end;



Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
1-1082229051
[BAD]Angel
2004-04-17 23:10
2004.05.02
PopUpMenu


14-1081336643
Домарощинер
2004-04-07 15:17
2004.05.02
Сборка собственного пакета


1-1081688743
IrQX
2004-04-11 17:05
2004.05.02
Почему не устанавливается компонент?


9-1069619329
DDS
2003-11-23 23:28
2004.05.02
Не могу поместить один GL_POLYGON перед другим, ерунда какая-то..


4-1078828816
eRoR
2004-03-09 13:40
2004.05.02
Как узнать имя окна, активного в данный момент