Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c