[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]

    {

       Convert a byte into his binary representation

                   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
                   º                                        º°
                   º          AVONTURE CHRISTOPHE           º°
                   º              AVC SOFTWARE              º°
                   º     BOULEVARD EDMOND MACHTENS 157/53   º°
                   º           B-1080 BRUXELLES             º°
                   º              BELGIQUE                  º°
                   º                                        º°
                   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼°
                   °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

    }

    Function Byte2Bin (Chiffre : Byte) : String;

    Var I, Temp : Byte;
        St      : String;

    Begin

       St := '';

       For I := 7 Downto 0 do Begin
           Temp := (Chiffre and (1 shl I));
           If (Temp = 0) then St := St + '0' Else St := St + '1';
       End;

       Byte2Bin := St;

    End;

[Back to NUMBERS SWAG index] [Back to Main SWAG index] [Original]