S spyder Unregistered / Unconfirmed GUEST, unregistred user! 2009-08-26 #1 我弄了个单位换算器,利用多个EDIT之间的Onchange互相转换,但是遇到个问题,就是当我使用键盘上的BACKSPACE键删除EDIT之中的内容时,会提示程序出现错误,我想问问为什么,大家给个解决方法!谢谢啦!
我弄了个单位换算器,利用多个EDIT之间的Onchange互相转换,但是遇到个问题,就是当我使用键盘上的BACKSPACE键删除EDIT之中的内容时,会提示程序出现错误,我想问问为什么,大家给个解决方法!谢谢啦!
S szhcracker Unregistered / Unconfirmed GUEST, unregistred user! 2009-08-26 #2 你的代码及思路都有些问题,不要用 OnChange 事件,代码中对 Edit 为空的情况要有处理
F fishhao Unregistered / Unconfirmed GUEST, unregistred user! 2009-08-27 #3 当 EDIT 有空格 或者 为空 的时候。程序就会错误,要有异常处理。 try except end
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-08-27 #4 procedure TForm1.Edit1Change(Sender: TObject);beginif eidt.text <>'' then 转换代码end;
W wql Unregistered / Unconfirmed GUEST, unregistred user! 2009-08-27 #5 procedure TForm1.Edit1Change(Sender: TObject);beginif eidt.text ='' then exit;if not (判断规则正确) then exit;// 至于如何判断你的字符是否附和规定,是你自己的事 转换代码;end;
procedure TForm1.Edit1Change(Sender: TObject);beginif eidt.text ='' then exit;if not (判断规则正确) then exit;// 至于如何判断你的字符是否附和规定,是你自己的事 转换代码;end;