中文异常处理？(80分)

C

cjhchina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #1

例如在文本框中输入不规则的数字，会出现'123' is not a valid date and time，这样界面很不友好，请问怎样汉化？

 

J

jianguobu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #2

try
.....
except
//你自定的错误提示
end;

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #3

在文本框的OnExit事件里处理一下：
procedure TForm1.Edit1Exit(Sender: TObject);
var temp : integer;
begin
try
temp := strtoint((Sender as TEdit).Text);
except
showmessage('你输入的数值非法！');
(Sender as TEdit).SetFocus;
end;
end;

 

D

delphi$java

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #4

用 pos() 这个函数捕捉错误,然后再showmessage();

 

C

chengangsir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #5

OnExit事件：
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
strtodate(Edit1.Text);
except
ShowMessage('你输入的数值非法！');
Edit1.SetFocus;
end;
end;

 

C

cjhchina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #6

在文本框的OnExit事件里处理一下：
procedure TForm1.Edit1Exit(Sender: TObject);
var temp : integer;
begin
try
temp := strtoint((Sender as TEdit).Text);
except
showmessage('你输入的数值非法！');
(Sender as TEdit).SetFocus;
end;
end;
这种方法只能起到一定的作用，如strtodate((Sender as TEdit).Text);,我输入错误时，不想输入日期了（NULL），就一直执行
showmessage('你输入的数值非法！');
(Sender as TEdit).SetFocus;

 

L

LingWing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #7

真要输入日期的话，用下拉组合框岂不是更好？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #8

建议对Delphi的一些常用资源单元进行汉化，一劳永逸。网上可以找到。需要的话，我可以寄给你（D7）。

 

刘

刘麻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #9

1。在onkeypress事件写代码 ， 判断 key 是否合法 ，非法则key:+#0; 。。 ：）
2。来自：jianguobu, 时间：2004-4-20 20:53:28, ID：2570843
try
.....
except
//你自定的错误提示
end;
结合后就完事大吉了。。 ：）

 

D

dfw_cgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #10

kaida 老兄，烦请给寄一份汉化的资源单元给我，谢谢！！！ lcglzw@tom.com