大家帮帮忙给看看!关于EDIT的内容!(100)

  • 主题发起人 主题发起人 spyder
  • 开始时间 开始时间
S

spyder

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

Similar threads

后退
顶部