| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Архивация [D5, WinXP]

Zaratustra ©   (2002-11-19 14:38:00) 

Скажите, как перевести текст из 0 и 1 блоками по 8 символов в байты? Как проделать обратную операцию?

---

Zaratustra   (2002-11-21 21:50:00) [1]

Poirot, спасибо за помощь.

---

Poirot   (2002-11-19 18:29:00) [2]

А чел наверное над битами поиздевался и теперь не может записать и даже считать перед издевкой...

interface
procedure Common_BinToByte(var ABinMask: String; out AOutByte: Byte; AStartBit: Byte = 1; AEndBit: byte = 8);
//Str(Bin Mask) to Byte
procedure Common_ByteToBin(AInByte: Byte; out AOutBinMask: string);
implementation
procedure Common_BinToByte;
var
I, Sum: Byte;
begin
Sum := 0;
for I := AStartBit to AEndBit - 1 do
Sum := (Sum + Byte(ABinMask[I])) shl 1;
Sum := (Sum + Byte(ABinMask[AEndBit]));
AOutByte := Sum;
end;

//Str(Bin Mask) to Byte

procedure Common_ByteToBin;
var I: Byte;
begin
AOutBinMask := "00000000";
for I := 8 downto 1 do begin
if AInByte mod 2 = 0 then AOutBinMask[I] := "0"
else AOutBinMask[I] := "1";
AInByte := AInByte div 2;
end;
end;


Глупее больше некуда!!!

---

Ru   (2002-11-19 16:48:00) [3]

гарне питання

---

MBo&shy   (2002-11-19 16:33:00) [4]

a prichem tut archivacia?

---

Ru   (2002-11-19 16:32:00) [5]

попробуй битовые операции
в соответствии с текстом устанавливаешь значение бит какого-либо числа

---

F1   (2002-11-19 14:41:00) [6]

Чаво???

---

Наверх