关于delphi函数的调用和传参，求介绍，内容如下所示！

Question

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输出，请问上面的代码该怎修改呢？

Answer 1

如果你用的是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;

Answer 2

aInt:=StrToInt(Edit2.Text);
改成
aInt:=StrToInt(Edit1.Text);