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

S

spyder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-26

• #1

我弄了个单位换算器，利用多个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;