Текущий архив: 2003.04.21;
Скачать: CL | DM;
Вниз
byte2bin Найти похожие ветки
← →
$Hic0 © (2003-04-11 12:19) [0]А как написать на сдвигах byte2bin? Никто не подскажет? Что-бы в результате работы программы была строка размерностью 8 бит, в которой содержится двичная версия передаваемого числа... Заранее спасибо
← →
Skier © (2003-04-11 12:23) [1]Поиск по форуму, батенька, довольно полезная вещь.
http://delphimaster.net/view/1-1049979016/
← →
$Hic0 © (2003-04-11 12:27) [2]:) Спасибо, но это мой вопрос, мне на него вчера доходчиво ответили :) Но в результате работы того куска кода, который там приведен, создается 32 битная строка, а мне нужна 8-ми битная, и что инетерсно, при попытке в ручную все попроавить типа Insert Delete, программа ругается :)
← →
Skier © (2003-04-11 12:30) [3]
> при попытке в ручную все попроавить типа Insert Delete,
> программа ругается :)
Copy(...)
← →
evvcom © (2003-04-11 12:30) [4]Вот это вопрос!
Вообще-то длину строки принято измерять в символах.
Недавно был такой вопрос (даже сегодня), посмотри форум.
← →
$Hic0 © (2003-04-11 12:47) [5]Ну блин, наверное я недоходчиво выражаюсь... в ту процедуру
http://delphimaster.net/view/1-1049979016/
переадется Integer и на выходе строка из 32 симовлов, а мне нужно что-бы передавался Байт и строка содержала в себе соответственно 8 символов :)
← →
panov © (2003-04-11 12:52) [6]хм... а изменить самому нельзя?
← →
$Hic0 © (2003-04-11 12:53) [7]никак не въеду...
← →
Anatoly Podgoretsky © (2003-04-11 13:00) [8]За буквари, только потом доступ до компьютера и только потом программировать
← →
$Hic0 © (2003-04-11 13:05) [9]Неужли так трудно ответить?:) Я между прочем кул-хацкер и все такое :) Буквари мне не нужны, я крутой чувак... всем спасибо... я сам допер, это-ж надо было сидеть въезжать, а время на вес золота
← →
Palladin © (2003-04-11 13:07) [10]Ты больше времени здесь потерял... кул зацкер мля...
← →
Separator © (2003-04-11 13:09) [11]Если уж такой кул зацкер, то такие основы должен был знать еще до того как сел програмировать, так как это обычная булевая алгебра
← →
$Hic0 © (2003-04-11 13:10) [12]Да блин $8000000000 с толку сбиавало :) Никак не мог понять что за число такое :)
← →
Separator © (2003-04-11 13:31) [13]$8000000000 - это маска, на которую происходит логическое умножение (and)
← →
Skier © (2003-04-11 13:54) [14]
procedure TForm1.Button3Click(Sender: TObject);
function ByteToBinStr(AByte : Byte) : String;
var
ii : Integer;
begin
Result := EmptyStr;
for ii := SizeOf(Byte) * 8 downto 1 do
Result := Result + IntToStr((AByte shr (ii - 1)) and 1);
end; //ByteToBinStr
begin
ShowMessage(ByteToBinStr(127));
end;
Страницы: 1 вся ветка
Текущий архив: 2003.04.21;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.023 c
