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

Вниз

Перевод десятичного кода в двоичный   Найти похожие ветки 

 
rams   (2004-04-20 08:43) [0]

Нет ли где готовых процедур для перевода десятичного кода в двоичный (2 байта). Обратное-то проще.
Спасибо.


 
Anatoly Podgoretsky ©   (2004-04-20 08:55) [1]

Bin := (dec[1] shl 4) * 10 + (dec[1] and 15) + (dec[1] shl 4) + 1000 + (dec[1] and 15) * 100;


 
Романов Р.В. ©   (2004-04-20 10:05) [2]

Ученик ©   (17.09.02 22:37)

function UniConvert(L, Base : Integer; Chars : PChar) : string;
begin
Result := "";
if StrLen(Chars) >= Base then begin
  repeat
    Result := (Chars + (L mod Base))^ + Result;
    L := L div Base
  until L = 0
end
end;

ShowMessage(UniConvert(534534, 2, "01"))


 
rams   (2004-04-20 13:24) [3]

[1] не совсем понял - что это.
[2] - то что надо, спасибо!


 
Anatoly Podgoretsky ©   (2004-04-20 13:29) [4]

Это из двоичного внутреннего в двоичное строковое, а твой вопрос про другое.



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

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

Наверх




Память: 0.47 MB
Время: 0.065 c
1-1082449333
Talle
2004-04-20 12:22
2004.04.11
Динамически создаваемые компоненты


14-1082046157
Gero
2004-04-15 20:22
2004.04.11
Потверждение в bat нике


6-1075720629
__boolean
2004-02-02 14:17
2004.04.11
Систмы передачи данных. Help


9-1068311603
MrAngel
2003-11-08 20:13
2004.04.11
glVertexPointerExt в OpenGL.pas отсутствует...


3-1081658534
iva
2004-04-11 08:42
2004.04.11
компонент редактирования в стиле Object Inspector