Delphi 二进制字符串和整形互相转换

Delphi  二进制字符串转整形

function TfrmPowerDown1.BinToInt2(strTemp: string): Integer;
var
  i,nsize:Integer;
  str:string;
  Count : Integer;
begin
   str:=UpperCase(strTemp);        //转成大写
   Count := Length(strTemp);
   nsize := 0;
  for i:=1 to Count do
  begin
    nsize := nsize * 2 + Ord(strTemp[i]) - 48;
  end;
  Result := nsize;

end;

“整形”转“二进制  字符串”，从第一位按顺序存储   如果10011110  --> 最高位1  第一位0 第二位1 

function TfrmPowerDown1.IntToBin2(InputNum: Integer): string;
var
  i:Integer;
  Count:Integer;
  TempReal:Real;
  strTemp:string;
  TempI, TempJ:Integer;
begin
  Count := 0;
  strTemp := '';
  TempI := 1;

  //获取输入整数的二进制表示的长度
  while True do
  begin
    if InputNum >= Power(2, TempI) then

      TempI := TempI + 1
    else
      break;
  end;
  //分别位与，得到二进制表示的每位
  Result := '';
  for TempJ := 1 to TempI do
  begin
    TempReal := Power(2, TempJ-1);
    if (InputNum and Trunc( TempReal ))<>0 then
      Result := '1' + Result
    else
      Result := '0' + Result;

  end;

  //返回8位
  Count := 8 - Length(Result) -1;
  for i := 0 to Count do
  begin
    strTemp := strTemp + '0';
  end;
  Result := strTemp + Result;

end;