怎么限制DBEDIT里面输入的数字的位数。

if length(dbedit)>* then
.....

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

直接设置DBEDIT的MaxLength属性不是更简单
if length(dbedit1)> 18 and  length(dbedit)< 18 then
messagldlg('你输入的位数不是18位');为何以上代码不对呀？
在 MaxLength里面设
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪磊磊磊倪
倪磊磊磊倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪磊磊磊倪
倪磊磊磊倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪磊磊磊倪
倪磊磊磊倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪磊磊磊倪
倪磊磊磊倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪磊磊磊倪
倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊磊磊磊磊磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪磊倪倪磊磊磊倪倪倪
倪倪磊磊磊倪倪倪倪倪倪磊磊磊磊磊磊磊磊倪倪磊磊倪磊磊磊倪倪倪
倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊磊磊倪倪倪
磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊磊倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊磊磊倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊磊倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪
倪倪磊磊倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪磊磊倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
磊倪倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪倪倪
倪倪倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪倪倪倪倪倪倪倪
if length(dbedit1)> 18 or length(dbedit)< 18 then
messagldlg('你输入的位数不是18位');为何以上代码不对呀？
if （length(dbedit1)> 18） or （length(dbedit)< 18） then
begin
if length (dbedit1.text)< 18 then
begin
messagedlg('输入有误',mterror,[mbok],0) ;
end;并且把dbEDIT的length 设为18
dbEDIT的length 设为18可以省去>18的判断
begin
if length(dbedit1.text)<>18 then
begin
messagebox("你输入的数字没有18位");
end