高考问答苹果中国官网购机:这段代码错在哪
来源：百度文库 编辑：高考问答 时间：2024/04/29 03:33:50
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
if a>b then
b:=edit3.text
else
if a<b then
a:=edit3.text
else
showmessage('same')
end;
在编译运行是总是显示在else那句出错
var a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
if a>b then
b:=edit3.text
else
if a<b then
a:=edit3.text
else
showmessage('same')
end;
在编译运行是总是显示在else那句出错
楼上说的很对
字符串的比较有其自己的函数来实现
并不能简单的用<,>来表达
b:=edit3.text
应该是
b:=strtoint(edit3.text);吧?
字符串不能用>或者<来比较。
都改成数值型的吧