Type TBinString = Array[ 0..31 ] Of Char ; Function IntToBin( N: Integer ): TBinString ; Const BinCharArr: Array[ 0..1 ] Of Char = ( '0', '1' ) ; Var I: Integer ; Begin For I := 0 To 32 - 1 Do Begin Result[ 31 - I ] := BinCharArr[ N And 1 ] ; N := N Shr 1 ; End ; End ;