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

Вниз

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

← →
$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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c