'''is not a valid integer value'
是在用TAB进行跳转EDIT框时出现????但不影响整个程序运行,但每次都会弹出一个对话框出来。很烦,别人还以为是程序出错?
是在用TAB进行跳转EDIT框时出现????但不影响整个程序运行,但每次都会弹出一个对话框出来。很烦,别人还以为是程序出错?
解决方案 »
- 关于FOR 循环的问题
- 给所有分了,关于工资情况! 身在上海的兄弟请进!
- 怎样创建Access数据库?
- 如何根据扩展名获取文件图标和类型描述(真实文件不存在)?
- 送分(在线等待)
- 为什么用CORBA中间层服务器有时会保存不上数据?
- 用什么按钮控件可以实现按下去是一种显示,再按一次又是另一种状态,就是许多软件里有的那种!不只是变图案!
- 为什么这段程序无法把相应的信息保存到数据库啊?
- Exception EStyleEngineException in module vcl180.bplClass 'TRzEditStyleHook' is
- 关于Delphi6的新功能
- 如何使DBGrid支持鼠标滚轮!我用的Delphi 6, 可有比较简单的方法??急!
- 恳请高手指教
在EDIT控件的某事件中有代码,上面的提示是说你的EDIT的内容不是Integer类型的数据。
procedure TForm7.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13])//判断是否输入的数字,删除符,回车符
then begin
beep;//发出警告
key:=#0;//删除非法字符
end;
end;
procedure TForm7.Edit8KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not (strtoint(self.Edit8.Text)<=strtoint(self.edit4.text))
then begin
beep;//发出警告
showmessage('实际数量不能大于输入数量!');
self.Edit8.Clear;
self.Edit8.SetFocus;
end;
end;
Shift: TShiftState);
begin
if (trim(self.Edit8.Text)<>'') and (trim(self.Edit4.Text)<>'') then
if not (strtoint(self.Edit8.Text)<=strtoint(self.edit4.text))
then begin
beep;//发出警告
showmessage('实际数量不能大于输入数量!');
self.Edit8.Clear;
self.Edit8.SetFocus;
end;
end
可以 TRY一下呀
对了哈。不过我想问问trim是什么东东,在这里有什么作用呢。马上给分哈
这句有问题,你试试用strtofloat