iTemp:=StrToInt(str);
    while iTemp>0 do
    begin
        if (iTemp and 1)=0 then    //?
            strValue:='0'+strValue
        else
            strValue:='1'+strValue;
        iTemp:=iTemp shr 1;  //?
    end;

解决方案 »

  1.   

    把一个数字(存在STRING变量中的)转换成2进制的字符串
      

  2.   

    把一个数字(存在STRING变量中的)转换成2进制的字符串
      

  3.   

    iTemp:=StrToInt(str);//将字符串转换为整形
        while iTemp>0 do  //循环
        begin
            if (iTemp and 1)=0 then    //if 语句是判断个为是0还是1
                strValue:='0'+strValue
            else
                strValue:='1'+strValue;
            iTemp:=iTemp shr 1;  //位运算,逻辑右移1位。
        end;