您所在位置：主题：[讨论]菜鸟，才学习本语言问一简单问题
xyyy644
[专家分：0] 发布于 2007-02-27 22:36:00
我想在edit.text中检查输入的是否是实数，如果不是弹出消息提示框提示，代码如下
var
str:string;
begin
str:=rightstr(edit1.text,1);
if str<>'' then
begin
if ((str<'0')or(str>'9')and(str<>'.')) then
showmessage('请输入实数！');
edit1.text:='';
edit1.SelectAll;
end;
end;
end.
现在出现一个问题，就是不能重键盘输入数字，可以输入字母。如果输入的是字母也有消息框弹出。请高手指点一下为什么不能输入数字？错在那里，要怎么写代码？谢谢！
var
str:string;
begin
str:=rightstr(edit1.text,1);
if str<>'' then
begin
if ((str<'0')or(str>'9')and(str<>'.')) then
showmessage('请输入实数！');
edit1.text:='';
edit1.SelectAll;
end;
end;
end.
现在出现一个问题，就是不能重键盘输入数字，可以输入字母。如果输入的是字母也有消息框弹出。请高手指点一下为什么不能输入数字？错在那里，要怎么写代码？谢谢！
