Главная страница
    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
8-1075150366
Builder
2004-01-26 23:52
2004.05.02
Эффект


4-1079030059
BaDeVlad
2004-03-11 21:34
2004.05.02
Как сделать многоуровневую отмену в Richedit?


14-1081424365
mr. Faga
2004-04-08 15:39
2004.05.02
записать свою функцию в стороннюю DLL...


1-1081838469
Tornado
2004-04-13 10:41
2004.05.02
Работа со строками


6-1079072036
Ricko
2004-03-12 09:13
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский