Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.009 c
14-67525
Style
2003-04-04 10:52
2003.04.21
В чем прикол?


3-67183
Жорик
2003-04-03 14:36
2003.04.21
Как написать базу на ADO, используя MS Access????


7-67581
Евген
2003-02-26 15:36
2003.04.21
Работа с ИК портом


1-67247
Wedos
2003-04-10 12:47
2003.04.21
Как сделать задержку


1-67372
Имран
2003-04-10 10:31
2003.04.21
Как вставить текст из txt в Word?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский