主题：请帮我看下程序语法哪里错了．怎么改
terryding82
[专家分：0] 发布于 2007-12-16 08:56:00
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
sum1:=a+b
button1.caption:=sum1;
end;
回复列表 （共5个回复）
沙发
wmlz [专家分：0] 发布于 2007-12-16 15:22:00
button1.caption:=sum1;
int to Str
板凳
linjipeng0 [专家分：220] 发布于 2007-12-25 09:21:00
button1.caption:=IntToStr(sum1);
3 楼
书剑 [专家分：0] 发布于 2007-12-26 22:59:00
没错，你主是整型转换。所以要保证你的edit录入正确，不要用空格
intostr(trim(edit1))
4 楼
wealthy [专家分：1840] 发布于 2007-12-27 11:02:00
上述有两种错误:
1、无定义sum1；
2、如果长型edit1.text或edit2.text是长型数时，会出错；
3、如果想要1+1=2效果时，如下；
procedure TForm1.Button1Click(Sender: TObject);
var a,b,sum1:integer;
begin
a:=strtointdef(edit1.text,0);
b:=strtointdef(edit2.text,0);
sum1:=a+b;
button1.caption:=inttostr(sum1);
end;
4、如果想要1+1=11效果时，如下；
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
sum1:string;
begin
a:=strtointdef(edit1.text,0);
b:=strtointdef(edit2.text,0);
sum1:=inttostr(a)+inttostr(b);
button1.caption:=sum1;
end;
5、想要另一种效果，如下：
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,sum1:string;
begin
a:=edit1.text;
b:=edit2.text;
sum1:=a+b;
button1.caption:=sum1;
end;
5 楼
hanzhijun402 [专家分：3690] 发布于 2008-01-10 16:24:00
首先，参数sum1没有定义；
其次，caption属性值是字符串类型，所以要用inttostr()转换
我来回复
您所在位置：