Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

Байты и Биты   Найти похожие ветки 

 
ZMaximI   (2004-01-23 13:30) [0]

Добрый день !
Уважаемые мастера, помогите пожалуйста
как байт уидеть в битах, чтобы с ними можно было работать, как с цифрами

Заранее благодарен.
С уважением, Максим.


 
Reindeer Moss Eater ©   (2004-01-23 13:44) [1]

А сейчас ты с ними как с буквами работаешь?


 
Reindeer Moss Eater ©   (2004-01-23 13:49) [2]

if (MyByte and 1) = 1 then ShowMessage("Самый младший бит в байте поднят");


 
YurikGl ©   (2004-03-01 19:35) [3]

Остаток от деления на два - младший бит. потом целочисленное деление на два. Еще раз остаток от деления на 2 - второй бит, целочисленное деление на 2 и т.д.


 
SammIk ©   (2004-03-01 21:23) [4]

Я тут статью накидал, если цензура допустит, то ее выпустят
как раз про биты


 
Guest ©   (2004-03-11 11:56) [5]

что такое вахабайт - восемь вахабитов...8)


 
MU   (2004-03-11 11:59) [6]

Classes
function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer;


 
Polevi ©   (2004-03-11 12:23) [7]

мдя


 
tesseract ©   (2004-03-11 18:04) [8]

begin

for i:=1 to 8 do
begin
  if Odd(MyByte) then result:="1"+result else result:
="0"+result;
 MyByte:=MyByte shr 1;
end;

усё Ж-)


 
at   (2004-03-11 19:26) [9]


function GET_BIT(Data :DWORD; Shift :integer) :integer;
begin
 if (Shift >= 0) and (Shift < SizeOf(DWORD)) then
   Result := (Data shr Shift) and 1
 else
   Result := -1;
end;

function SET_BIT(Data :DWORD; Shift :integer; Value :DWORD) :DWORD;
begin
 if (Shift >= 0) and (Shift < SizeOf(DWORD)) then
 begin
   Value  := Value and 1;
   Data   := Data and (not (1 shl Shift));
   Result := Data or (Value shl Shift);
 end else
   Result := Data;
end;


 
at   (2004-03-11 19:31) [10]

прошу прощения под SizeOf подразумевалось SizeOf()*8


 
Guest ©   (2004-03-12 14:20) [11]

function Digit(val: integer; num: integer):integer;
begin
digit:=(val and (1 shl num));
end;

procedure ByteToBit(NUMBER : integer; NumBit : integer);
var
str : string;
begin
str:="";
while true do
begin
 if(digit(NUMBER,NumBit)<>0) then str:=str+"1" else str:=str+"0";
 if (NumBit=0) then break;
 Dec(NumBit);
end;
end;


 
panov ©   (2004-03-12 15:14) [12]

Если интересно - возьми класс для работы с битами по адресу у меня в инфе и разберись.



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

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

Наверх




Память: 0.47 MB
Время: 0.031 c
1-1082095332
Well
2004-04-16 10:02
2004.05.02
Как извлечь имя файла?


9-1068816464
Stas
2003-11-14 16:27
2004.05.02
Как нарисовать куб используя OpenGl


1-1082024160
gauss
2004-04-15 14:16
2004.05.02
Подскажите Зачем применяется конструкция приведенная ниже


6-1078621428
GanibalLector
2004-03-07 04:03
2004.05.02
RasDial или InternetDial


1-1082206330
Viktor
2004-04-17 16:52
2004.05.02
Проверить объект на существование





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский