den Inhalt eines Bytes in einem String darstellen

[mschaefer]

Moin zusammen,

Delphi-Quellcode:

           function Byte2Str
           (MyByte   : byte)
                     : string;
           var
             i, n    : integer;
           begin
             result := '00000000';

             n := 128;
             for i := 1 to 8 do begin
               if MyByte >= n then begin
                  result[i] := '1';
                  Dec(MyByte, n);   {n=128;64;32;16;8;4;2;1}
               end;
               n := n div 2;
             end;
           end;

{OT: ... der Server klingelt, bin on tour ...}

Grüße // Martin