首頁猿問關(guān)于delphi函數(shù)的調(diào)用和傳參，...

關(guān)于delphi函數(shù)的調(diào)用和傳參，求介紹，內(nèi)容如下所示！

Java Oracle

森林海 2021-09-13 14:10:54

procedure TForm1.RadioButton1Click(Sender: TObject);{十進制轉(zhuǎn)換成二進制}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里輸入一個數(shù)，然后傳參給IntToBin,經(jīng)過計算，然后返回最終值，由Edit2輸出，請問上面的代碼該怎修改呢？

查看完整描述

2 回答

尚方寶劍之說

TA貢獻1788條經(jīng)驗獲得超4個贊

如果你用的是360，那么這段代碼會報木馬，因為用了shl，可以不用理會
整型本身就是一個4字節(jié)的2進制數(shù)，所以，直接按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;