您所在位置：主题：不明白，请高手指点
xyyy644
[专家分：0] 发布于 2007-02-28 20:05:00
想做一个输入数字的文本框，如果输入的不是实数弹出消息框提示，代码编写如下：
procedure TForm1.Edit1Change(Sender: TObject);
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;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.SetFocus;
end;
end.
现在问题是不能输入数字，可以输入字母并且也有消息提示，请各位指点是哪儿错啦
procedure TForm1.Edit1Change(Sender: TObject);
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;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.SetFocus;
end;
end.
现在问题是不能输入数字，可以输入字母并且也有消息提示，请各位指点是哪儿错啦
