Delphi中有二进制类型吗?(如integer : 整型)
转换呢?(intto二进制)?

解决方案 »

  1.   

    二进制类型是没有的,用字符串表示啦
    我有两个函数,希望对你有帮助
    function bintoint(s:string):integer;
    var
      j,i:integer;
    begin
      result:=0;
      if s='' then
      begin
        result:=-1;
        exit;
      end;
      for i:=length(s) downto 1 do
      begin
        j:=1;
        j:=j shl (length(s)-i);
        if s[i]='1' then
          result:=result or j
        else if s[i]='0' then
          result:= result and (not j)
        else
        begin
          result:=-1;
          exit;
        end;
      end;
    end;function inttobin(i:integer;size:integer):string;
    var
     j: integer;
    begin
      result:='';
      for j:=size-1 downto 0 do
      begin
        if i and (1 shl j)<>0 then
          result:=result+'1'
        else
          result:=result+'0';
      end;
    end;
      

  2.   

    byte 类型
    好象现成的只有一个INTTOHEX
    到十六进制的转换