5,385
社区成员
发帖
与我相关
我的任务
分享高手HELP ME！
在delphi7里面，我有一个edit控件，我想让它只能输入float型的数，当输入其他字符时就出现提示报错。但代码我了几次都不成功，请大虾指点。
...全文
请发表友善的回复…
发表回复
wzds2000 2003-10-17
- 打赏
- 举报
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8,#13,'.']) then
begin
key:=#0;
end;
if key=chr($d) then
begin
try
StrToFloat(Edit1.Text);
except
ShowMessage('非法类型数据');
end;
end;
end;
begin
if not(key in['0'..'9',#8,#13,'.']) then
begin
key:=#0;
end;
if key=chr($d) then
begin
try
StrToFloat(Edit1.Text);
except
ShowMessage('非法类型数据');
end;
end;
end;
点燃你的火花 2003-10-17
- 打赏
- 举报
那些烂的代码我扔了。其实我是不知道怎么写，所以想请高手帮写。
hmzgz81 2003-10-17
- 打赏
- 举报
把代码帖出来把！
