我做的一个很简单的过程calculate作为计算费用的，
在edit3.text中输入数字后，和edit6.text的相乘，
结果保留在editlsvalue.text中。


在implementation里写了这么一个过程，程序如下：
procedure Caculate(x,y,z:integer);
begin
z:=x*y;
end;


在button1里面调用该过程，程序如下：
procedure TForm2.BitBtn10Click(Sender: TObject);
var number1,number2,result:integer;
begin
number1:=strtoint(edit3.Text);
number2:=strtoint(edit6.Text);
caculate(number1,number2,result);
editlsvalue.Text:=inttostr(result);
end;

为什么计算出来的结果都是0呢？
大家帮忙下，谢谢

你写的是过程又不是函数，哪有返回值。
function Caculate(x,y:integer):integer;
begin
result:=x*y;
end;

procedure TForm2.BitBtn10Click(Sender: TObject);
var number1,number2,result:integer;
begin
number1:=strtoint(edit3.Text);
number2:=strtoint(edit6.Text);
editlsvalue.Text:=inttostr(caculate(number1,number2));
);
end;

嗯，犯了个笨笨的错误，
谢谢你啦

procedure Caculate(x,y:integer;var z:integer);
begin
z:=x*y;
end;