高考问答胥江岸花园:刚学delphi
来源：百度文库 编辑：高考问答 时间：2024/05/14 16:50:28
我是新手，刚学的，就写了一个有函数的试试。
把edit1和edit2的值相加，结果放到edit3中
function jisuan(x,y:integer):integer函数完成计算
问题是edit3中出现的总是edit1中的值，为什么？
implementation
function jisuan(x,y:integer):integer;
var
sun:integer;
begin
sun:=x+y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aa,bb,cc:integer;
begin
aa:=strtoint(edit1.Text);
bb:=strtoint(edit2.Text);
cc:=jisuan(aa,bb);
edit3.Text:=inttostr(cc);
end;
cc:=jisuan(aa,bb);
这一句不是给它值了吗
把edit1和edit2的值相加，结果放到edit3中
function jisuan(x,y:integer):integer函数完成计算
问题是edit3中出现的总是edit1中的值，为什么？
implementation
function jisuan(x,y:integer):integer;
var
sun:integer;
begin
sun:=x+y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aa,bb,cc:integer;
begin
aa:=strtoint(edit1.Text);
bb:=strtoint(edit2.Text);
cc:=jisuan(aa,bb);
edit3.Text:=inttostr(cc);
end;
cc:=jisuan(aa,bb);
这一句不是给它值了吗
你文中提到的是为变量cc赋值，但是在函数jisuan(x,y:integer) 中并没有为jisuan赋值,缺少 jisuan:=sun;这个语句，
或者不定义sun变量，而直接写成:
function jisuan(a,b:integer):integer;
begin
jisuan:=a+b
end;