Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизПеревод из одной системы счисления в другую Найти похожие ветки
← →
$Hic0 (2003-04-10 16:50) [0]Кто-нить знает, процедуру в Дельфи типа dec2bin или самому заниматься делением столбиком? Заранее спасибо.
← →
anbezr (2003-04-10 17:05) [1]IntToHex
← →
jel (2003-04-10 17:09) [2]Зачем столбиком?
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
n : integer;
s : string;
begin
n := 10; // произвольное число
s := ""; // строка для результата
for i := 1 to SizeOf(n) * 8 do begin
if n and $80000000 <> 0 then s := s + "1"
else s := s + "0";
n := n shl 1;
end;
ShowMessage(s);
end;
← →
_Nicola_ (2003-04-10 17:27) [3]Смотри функции в RxLib. Модуль StrUtil (по-моему).
← →
Amoeba (2003-04-10 17:35) [4]Используй библиотеку QStrings, ф-ии Q_UIntToBin или Q_UIntToBinBuf
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c