【结贴】只允许在edit 中输入数字,小数点 退格**

allride

怎么弄才能只允许在edit 中输入数字,小数点 退格
急,等待中……

atiger

这是一个标准控件，参考 Delphi 的相关说明。如果是表种的某个字段，可以在字段的“有效输入字符”中设置

caixin

给你一个方法，你把它建在资源集里，然后就可以在功能里调用了！

static Function  TXTGGZYJ.IsNumber(UserStr:String):Boolean;
var
   I,J:Integer;
   myText:String;
Begin
     J:=0;
     Result:=False;


     For I:=0 to UserStr.Length-1 do
     Begin
          myText:=UserStr.Substring (I,1);
          if ((myText='0') or (myText='1') or (myText='2') or (myText='3') or
               (myText='4') or (myText='5') or (myText='6') or (myText='7') or
               (myText='8') or (myText='9') or (myText='.')) then
          Begin
               Result:=True;
               if myText='.' then J:=J+1;
          End
          Else
          Begin
               Result:=False;
          End;
     End;
     ////如果字符串中起来两个.
     if J>1 then Result:=False;
     ////如果字符串中第一个为.或者最后一个为.
     if ((UserStr.Substring (0,1)='.') or (UserStr.Substring (Userstr.Length -1,1)='.')) then
     Begin
          Result:=False;
     End
End;

lixy

感谢3楼，结贴