Перевести строчку в битовое представление

[artem611]

Всем доброго времени суток. Скажите, можно ли в Паскале какое либо сообщение типа стринг перевести в битовое представление, те последовательность 0 и 1? Можно ли потом обратно перевести из 0 и 1 в текст?
Если можно, то подскажите, пожалуйста, в виде кода как, а то весь нет уже перырыл, никак не найду как это сделать(

Всем заранее спасибо

[artem611]

P.S. а можно как-нибудь после создания темы изменить ее название(тк опечатался)

[veniside]

function char2bin(c: char): string;
var
  b, i: Byte;
  result: string;
begin
  b := Ord(c);
  result := '';
  //
  for i := 1 to 8 do begin
    //
    if ($80 = (b and $80)) then
      result := result + '1'
    else
      result := result + '0';
    //
    b := b shl 1;
  end;
  //
  char2bin := result;
end;

[artem611]

veniside
Большое пребольшое спасибо.

Не могли бы вы еще пояснить мне, что делает вот эта часть кода: %80

А так с кодом я вроде бы разобрался. Еще раз спасибо

[Serge_Bliznykov]

Не могли бы вы еще пояснить мне, что делает вот эта часть кода: %80

1) не %80, а $80

2) с долларом вначале записываются шестнадцатеричные константы. таким образом $80 = десятичное 128 (можете везде вместо $80 смело написать 128 будет то же самое).

3) самое главное свойство этого числа - это байт, у которого в старшем разряде 1 (единица)
т.е. если это число записать в двоичном виде получим:
10000000

4) используется эта константа в качестве битовой маски:
т.е. наш символ (в переменную b записывает код этого символа) поочередно делается побитное логическое И с маской.
если в нашем числе в старшем разряде единица то после AND получим число с единицей в старшем разряде, т.е. $80
если получили - значит у нас единица, если нет (получится ноль) - значит в старшем разряде числа у нас был нолик.
Потом число сдвигаем побитно на один разряд влево и повторяем операцию.

Кстати, сравните с таким кодом (делает ровно то же самое):

  for i := 1 to 8 do begin
    if (b and 01) = 01 then
      result := '1' + result
    else
      result := '0' + result;
    b := b shr 1;
  end;

[artem611]

Serge_Bliznykov

Спасибо за подробное объяснение