Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Перевод десятичного кода в двоичный Найти похожие ветки
← →
rams (2004-04-20 08:43) [0]Нет ли где готовых процедур для перевода десятичного кода в двоичный (2 байта). Обратное-то проще.
Спасибо.
← →
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;
← →
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"))
← →
Романов Р.В. © (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] - то что надо, спасибо!
← →
rams (2004-04-20 13:24) [3][1] не совсем понял - что это.
[2] - то что надо, спасибо!
← →
Anatoly Podgoretsky © (2004-04-20 13:29) [4]Это из двоичного внутреннего в двоичное строковое, а твой вопрос про другое.
← →
Anatoly Podgoretsky © (2004-04-20 13:29) [4]Это из двоичного внутреннего в двоичное строковое, а твой вопрос про другое.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.031 c
