10进制转2进制的函数

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 ;