整形转二进制

Delphi没有直接提供整形转二进制的函数，就自己写了一个，贴出来与大家共享.
并没有对速度做优化，各位有更新的版本请共享,谢谢!

 

function  Int2Bin(intVal:  integer ):  string ;
{整形转二进制串}
begin
   // 先转为16进制字串,然后从16进制串转为2进制串
  return Hex2Bin(Format( ' %X', [intVal]));
end ;

function  Hex2Bin(hexVal:  string ):  string ;
{十六进制转二进制串}
Var
  mHex:  string ;
begin
  mHex : =  hexVal;
  mHex : =  StringReplace(mHex,  ' 0', '0000', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 1', '0001', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 2', '0010', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 3', '0011', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 4', '0100', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 5', '0101', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 6', '0110', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 7', '0111', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 8', '1000', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' 9', '1001', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' A', '1010', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' B', '1011', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' C', '1100', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' D', '1101', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' E', '1110', [rfReplaceAll]);
  mHex : =  StringReplace(mHex,  ' F', '1111', [rfReplaceAll]);

  Result : =  mHex;
end ;