Z zxc1998 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-15 #1 请问在一有EDIT编辑框中，如果我想在这个编辑中输入只数字是有效的，而输入字母、特殊字符等无效，而且警告出现，该怎么办？好像MASKEDIT有这种功能是吗？请赐教！！！
A andy263 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-15 #2 if not (key in['0'..'9','.',#8,#13]) then key:=#0;
Z zxc1998 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-15 #3 大哥：你的方法我试过了，如果我没试错的话，你的方法好像不行！
网 网事如风 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-15 #4 判断字符串是否可以转换为整数： function IsIntStr(const S: string): boolean; begin Result:=StrToIntDef(S,0)=StrToIntDef(S,1); end;
判断字符串是否可以转换为整数： function IsIntStr(const S: string): boolean; begin Result:=StrToIntDef(S,0)=StrToIntDef(S,1); end;
河 河清 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-16 #5 形如andy263所说的，或者使用MaskEdit. procedure TForm1.Edit1KeyPress(Sender: TObject var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; messagebeep(0); end; end;
形如andy263所说的，或者使用MaskEdit. procedure TForm1.Edit1KeyPress(Sender: TObject var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; messagebeep(0); end; end;
