Question

DELPHI 引用其它单元

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit1.Text);
edit3.Text:=inttostr(test(a,b));
end;
这是unit2里的代码
unit Unit2;
interface
function test(x,y:integer):integer;
implementation
function test(x,y:integer):integer;var z:integer;
begin
z:=x+y;
test:=z;
end;

原来第一次用.随便输入两个数可以正常显示.但必须前两个编辑框都要改.只改一个没反应.而且奇葩的事..有时候会显示这样的效果..

Answer 1

这里错了：
a:=strtoint(edit1.Text);
b:=strtoint(edit1.Text);
其中，把b中的改为Edit2.Text即可。