Question

DElPHI中,如何在文本框中输入错误数据是给出提示

if not (key in ['0'..'9',#13,#8,#45]) then key:=#0;
if Key=#13 then
if (edit2.Text='')or(edit2.Text='-') then showmessage('输入有误，请重新输入！')
............
在文本框中，只能输入正整数，0，负整数，其中字母、“+”.“*”，“/”等符号都已被限制，只能输入数字与“-”，可是输入“8-”，“--”，“---”，“2-5”，“-5-”这类字符时不能给出提示，如何添加代码避免这类错误数据的输入？

Answer 1

我觉得实在没必要手动编写验证代码来完成这项工作，完全可以用TSpinEdit控件来代替啊。

TSpingEdit控件支持输入正整数，0，负整数，而且，自带的支持像你上面说的验证什么的，如果输入错误的话，会“叮叮”喇叭报警。

如果非要用edit控件的话，我的建议是：

1. 检测输入的字符在规定的集合内，就像你上面代码写的。

2. 再过滤完字符后，再尝试转换成整数或检测是不是合法的数。

追问

数据必须从键盘输入。

Answer 2

if （Key in [#45,#13] ）and （Edit2.Postion >1 ）then
begin
Key := #0;

showmessage('输入有误，请重新输入！')

end ;
貌似是这个，我这没编译环境，就是在获得非数字值 时查看光标在何位置，如果不在首位，则不接受该值

追问

Edit2没有Postion这个属性，编译时出错

追答

是类似这个属性

Answer 3

if rightstr(edit2.text,1)='-' or (pos('-',edit2.text)>0 and pos('-',edit2.text)<>1)