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

Вниз

IntTo...   Найти похожие ветки 

← →
SMAC   (2006-03-06 17:17) [0]

Ув. мастера!
Есть ли аналог IntToHex для представления бинарного формата?
Что-то вроде IntToBin(i : integer) : string;.
Если такой функции нет, то как её можно реализовать так, чтобы не было тормозов при переводе?

Спасибо.

---

← →
MBo ©   (2006-03-06 17:24) [1]

Хотя эту функцию и самому нетрудно написать, IntToBin есть в модуле IdGlobal

---

← →
SMAC   (2006-03-06 17:26) [2]

Где он? Как подключить?

---

← →
MBo ©   (2006-03-06 17:46) [3]

это от Indy, в тех версиях, где он присутствует, конечно. Давно бы уж сам написал.

function IntToBin(Value: cardinal): string;
var
 i: Integer;
begin
 SetLength(result, 32);
 for i := 1 to 32 do
 begin
   if ((Value shl (i-1)) shr 31) = 0 then
     result[i] := "0"  {do not localize}
   else
     result[i] := "1"; {do not localize}
 end;
end;

---

← →
SMAC   (2006-03-06 18:02) [4]

Спасибо. Очень лаконично.
Я про shr и shl напрочь забыл. <:<
А ведь логические операнды на первой лекции кажется...;)

---

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

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

Наверх

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