营改增财务负责人责任:这段代码错在哪
来源:百度文库 编辑:神马品牌网 时间:2024/05/06 02:16:59
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);吧?
字符串不能用>或者<来比较。
都改成数值型的吧