如何限制一个Edit的输入*

einsteincao 2004-07-17 05:43:55

我只想让Edit1输入的内容为 1位整数加1位小数例如： 8.6

如果输入有误，则提醒重输

该如何做呢

请给出代码...

...全文

97 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

vzxq 2004-07-19

打赏
举报

study

lionlsl 2004-07-17

打赏
举报

对在KEYPRESS事件中做比较好

chengtwn 2004-07-17

打赏
举报

以上在KEYPRESS事件里

chengtwn 2004-07-17

打赏
举报

看看下面的怎么样？
if not (key in['0'..'9','.',#8,#13,#46]) then
begin
key:=#0;
end;

其中#13是回车键，#46是退格键，

sankis 2004-07-17

打赏
举报

你还可以先判断必须是<10>1的数。

pilicat 2004-07-17

打赏
举报

在其OnExit事件中写代码:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Length(Edit1.Text)>3 then
begin
ShowMessage('请重新输入');
(Sender as TEdit).SetFocus;
exit;
end;
try
strtofloat(Edit1.Text);
if pos('.',Edit1.Text)<> 2 then
begin
ShowMessage('请重新输入');
(Sender as TEdit).SetFocus;
end;
except
ShowMessage('请重新输入');
(Sender as TEdit).SetFocus;
end;
end;

sankis 2004-07-17

打赏
举报

都可以了，方法很多。

soery 2004-07-17

打赏
举报

给你个思路吧
1：首先保证录入的必须为数字和“.”以及退格键
2：取录入的字符串的第二位，看是不是“.”,不是则重新录入

linzhengqun 2004-07-17

打赏
举报

设Edit1.Maxlength:=3;
在edit.onpress中
var str:string;
begin
str:=Edit.text;
if (length(str)=0)or(length=2) then
begin
if key not in ['1'..'9'] then
key=#0;
end
else if (length(str)=1 then
if key not in['.'] then
key=#0;
end;