Dezimal -> Binär

[p80286]

wie wäre es ein Byte zu übersetzen?

Delphi-Quellcode:

function BytetoBin(inb:byte):string;
type
  tnibbbin = string[4];
const
  ba : array [0..15] of tnibbin=('0000','0001',
                                 '0010','0011',
                                 '0100','0101',
                                 '0110','0111',
                                 '1000','1001',
                                 '1010','1011',
                                 '1100','1101',
                                 '1110','1111')
begin
  result:=ba[inb shr 4 ]+ba[inb and $0F];
end;

...
{für 8Bit Char }
ergeb:='';
for i:=1 to length(mystring) do
  ergeb:=ergeb+BytetoBin(Byte(mystring[i]));

Gruß
K-H