home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
MOUSE.ZIP
/
BINU.PAS
next >
Wrap
Pascal/Delphi Source File
|
1991-07-01
|
623b
|
44 lines
Unit BINU;
Interface
Function BinToWord(s : String) : Word;
Function WordToBin(W : Word) : String;
Implementation
Function BinToWord(s : String) : Word;
Var
w, i, j : Word;
Begin
w := 0;
j := 1;
For i := Length(s) downto 1 do
Begin
w := w + (Ord(s[i])-48) * j;
j := j *2;
End;
BinToWord := w;
End;
Function WordToBin(W : Word) : String;
Var
s : String;
i,j,k: Word;
Begin
k := 1;
s := '';
For i := $0 to $f Do
begin
If (W and k) > 0 Then
s := '1' + s
Else
s := '0' + s;
k := k * 2;
End;
WordToBin := s;
End;
End.