Question

delphi这段代码哪里错了？

var a,b: integer;

begin
a:=strtoint(Edit1.text);
b:=strtoint(Edit2.text);

if a>b then
begin
Edit3.Text: = inttostr(a)'+'inttostr(b);
end
else
begin
Edit3.Text: = inttostr(b)'+'inttostr(a);
end;

Answer 1

var a,b: integer;

begin
a:=strtoint(Edit1.text);
b:=strtoint(Edit2.text);

if a>b then
begin
Edit3.Text: = inttostr(a)+inttostr(b);
end
else
begin
Edit3.Text: = inttostr(b)+inttostr(a);
end;
这样就正确了,不能还边不能用',如果要带加需要 + ' + ' + ,还有输入时要输入整数,不能输入不合法的数据,不然会出错.

Answer 2

Edit3.Text: = inttostr(a) + '+' + inttostr(b);

Answer 3

begin
a:=strtoint(Edit1.text);
b:=strtoint(Edit2.text);

if a>b then
begin
Edit3.Text: = inttostr(a)+inttostr(b);
end
else
begin
Edit3.Text: = inttostr(b)+inttostr(a);
end;
你把运算符变成字符串了

Answer 4

Edit3.Text: = inttostr(a)'+'inttostr(b);
改为：Edit3.Text: = inttostr(a)+inttostr(b);
Edit3.Text: = inttostr(b)'+'inttostr(a);
改为 Edit3.Text: = inttostr(b)+inttostr(a);