着急 在线等 谢谢

Question

DELPHI中如何将 字符串中的数字转化为二进制

Answer 1

如果是第一种可以参考如下代码,然后再转二进制;如果是第二种,先转换成10进制,然后再转二进制CONST
  Bits8 : Array [1..8] of Integer = (128, 64, 32, 16, 8, 4, 2, 1);
Function Bin8ToInt ( X : String ) : Integer;
VAR
   G, Total : Integer;
Begin
     Total := 0;
     For G := 1 to 8 Do
         If ( X[G] = '1' ) then
            Total := Total + Bits8[G];
     Bin8ToInt := Total;
End;