Символ и Байт

[tonatas]

Как преобразовать символ в байтовые единицы (единицы и нули) и обратно.

[Я_и]

Используй функции Ord(X) b Chr(X)

[Serge_Bliznykov]

может быть, имеется в виду двоичное представление?

тогда так:

   function Int2Binary(l: longint): string;
   { int32 to its binary string representation}
   var
     i: longint;
     s: string;
   begin
     s := '';
     repeat
       if odd(l) then
         s := '1' + s
       else
         s := '0' + s;
       l := l shr 1;
     until l=0;
     Int2Binary := s;
  end;

.....

  WriteLn( Int2Binary( ord(X) ));

[tonatas]

Да, в двоичном представлении, но мне надо символ в двоичное число.

[ZaRDaK]

WriteLn( Int2Binary( ord(X) ));