procedure TForm1.RadioButton1Click(Sender: TObject);{十進制轉換成二進制}varaInt:integer;beginaInt:=StrToInt(Edit2.Text);Edit2.Text:=IntToBin(aInt);end;function IntToBin(const aInt : Integer):string;vars:string;i,j:Integer;begins:='';Result:='';i:=aInt;while i>=2 dobegins:=s + IntToStr(i mod 2);i:=i div 2;end;s:=s + IntToStr(i);s:=s+IntToStr(i);i:=Length(s);if i < 4 thens := s + Copy('000 ',1,4-i);i:=Length(s);for j:=i downto 1 doResult := Result + s[j];end;我想從Edit1里輸入一個數，然后傳參給IntToBin,經過計算，然后返回最終值，由Edit2輸出，請問上面的代碼該怎修改呢？
2 回答
尚方寶劍之說
TA貢獻1788條經驗 獲得超4個贊
如果你用的是360，那么這段代碼會報木馬，因為用了shl，可以不用理會
整型本身就是一個4字節的2進制數，所以，直接按2進制來處理，不用這么麻煩
procedure TForm1.Button1Click(Sender: TObject);
var i,n: Integer;
begin
Edit2.Clear;
if not TryStrToInt(Edit1.Text,n) then exit; //賦值給n，如果失敗直接退出
for i:=1 to sizeof(n)*8 do
begin
if (n and $80000000)=0 then
Edit2.Text := Edit2.Text + '0'
else
Edit2.Text := Edit2.Text + '1';
n := n shl 1; //左移一位
end;
end;
添加回答
舉報
0/150
提交
取消