delphi中，在edit1,edit2中输入两个数，然后如何判断他们的值相差1

来源：百度知道 编辑：UC知道 时间：2024/07/05 02:25:16
if strtoint(edit7.Text)-strtoint(edit8.text)>=1
then
image1.Picture.LoadFromFile('F:\界面\图标\1.ICO');
我是这样写的，可是不对。
它们的值相差>=1时报警。

if （strtoint(edit7.Text)-strtoint(edit8.text)）>=1
这样就行了

if (strtoint(edit1.Text)-strtoint(edit2.text)=1) or (strtoint(edit1.Text)-strtoint(edit2.text)=-1)
then
image1.Picture.LoadFromFile('F:\界面\图标\1.ICO');

相差1应该是包括正负1吧，还有你在edit1和edit2里输入，代码却是edit7和edit8，所以错了。。。

keyiwenwo 的答案是对的
//两个数的绝对值>=1
if Abs(strtoint(edit7.Text)-strtoint(edit8.text))>=1
then
image1.Picture.LoadFromFile('F:\界面\图标\1.ICO');

把 >= 改为 =,其他不变.