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;