Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];

Вниз

Архивация   Найти похожие ветки 

← →
Zaratustra   (2002-11-19 14:38) [0]

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

---

← →
F1   (2002-11-19 14:41) [1]

Чаво???

---

← →
Ru   (2002-11-19 16:32) [2]

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

---

← →
MBo&shy   (2002-11-19 16:33) [3]

a prichem tut archivacia?

---

← →
Ru   (2002-11-19 16:48) [4]

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

---

← →
Poirot   (2002-11-19 18:29) [5]

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

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;


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

---

← →
Zaratustra   (2002-11-21 21:50) [6]

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

---

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

Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c