(*
Category: SWAG Title: BITWISE TRANSLATIONS ROUTINES
Original name: 0083.PAS
Description: Convert Byte to Binary
Author: AVONTURE CHRISTOPHE
Date: 03-04-97 13:18
*)
{
Convert a byte into his binary representation
+----------------------------------------+
| |H
| AVONTURE CHRISTOPHE |H
| AVC SOFTWARE |H
| BOULEVARD EDMOND MACHTENS 157/53 |H
| B-1080 BRUXELLES |H
| BELGIQUE |H
| |H
+----------------------------------------+H
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
}
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;
begin
WriteLn( Byte2Bin(197) );
end.
This repository has been archived by the owner on Nov 2, 2021. It is now read-only.