这句子那里错了，老返回错误答案？

[sixgj]

if DBEdit1.Text='0' then
begin
A:=0;
end
else
if DBEdit1.Text<'10' then
begin
A:=strtoint(DBedit2.text)-strtoint(DBedit1.text); //当DBEdit1.Text数为20时就自动跑到这里了？？？？？
end
else
if DBEdit1.Text>'10' then
A:=1;

[日月路明]

楼主代码太low，在确定各个控件均为有效数字的情况下，可以改写成： a:=strtoint(DBedit1.text); if a>10 then A:=1 else if A>0 then A:=strtoint(DBedit2.text)-A 不知道楼主对于a<0是如何处理的

[日月路明]

另外 DBEdit1.Text<'10'  这种比较数字的方法不对

[lyhoo163]

  if DBEdit1.Text='0' then
  begin
    A:=0;
  end
  else begin
    if StrToInt(DBEdit1.Text)<10 then
    begin
      A:=strtoint(DBedit2.text)-strtoint(DBedit1.text);
    end
    else begin
      if StrToInt(DBEdit1.Text)>10 then A:=1;
    end;
  end;

这样，比较好。“原句中进行字符串比较”

[lyhoo163]

  if (DBEdit1.Text<>'') then
  begin
    if StrToInt(DBEdit1.Text)=0 then
    begin
      A:=0;
    end
    else begin
      if StrToInt(DBEdit1.Text)<10 then
      begin
        A:=strtoint(DBedit2.text)-strtoint(DBedit1.text);
      end
      else begin
        if StrToInt(DBEdit1.Text)>10 then A:=1;
      end;
    end;
  end;

第一句也要改。这样比较好。