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;
while iTemp>0 do
begin
if (iTemp and 1)=0 then //?
strValue:='0'+strValue
else
strValue:='1'+strValue;
iTemp:=iTemp shr 1; //?
end;
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;