您所在位置：主题：请大家看看这个if语句的问题,错在哪里？
qqjb
[专家分：0] 发布于 2008-01-17 09:42:00
noway :integer，edtno.text :TEdit; //这个只是部分代码，所以在这说明下这两个的类型
noway := strtoint(edtno.text)+1;
if noway < 10 then
edtno.text := '0000'+inttostr(noway)
else
if noway >=10 and noway <100 then //编译出错 提示 Incompatible types
edtno.text := '000'+inttostr(noway)
else
if noway >=100 and noway <1000 then //编译出错 提示 Incompatible types
edtno.text := '00'+inttostr(noway)
else
if noway >=1000 and noway <10000 then //编译出错 提示 Incompatible types
edtno.text := '0'+inttostr(noway);
请大家帮我看看，因为刚接触编程，很多都不会，希望大家能帮助我，谢谢先
noway := strtoint(edtno.text)+1;
if noway < 10 then
edtno.text := '0000'+inttostr(noway)
else
if noway >=10 and noway <100 then //编译出错 提示 Incompatible types
edtno.text := '000'+inttostr(noway)
else
if noway >=100 and noway <1000 then //编译出错 提示 Incompatible types
edtno.text := '00'+inttostr(noway)
else
if noway >=1000 and noway <10000 then //编译出错 提示 Incompatible types
edtno.text := '0'+inttostr(noway);
请大家帮我看看，因为刚接触编程，很多都不会，希望大家能帮助我，谢谢先
