各位大哥又是我，这次的问题很简单！！(50分)

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #1

我正在写一个用户登陆的界面比如：工号：xxx，密码xxx
现在要求是要做到用户输入的工号必须是'0'-'9'的10个数字，不能是'd'等字母，也
不可以是"#"或其他的字符。每当用户输入错误的字母或字符后，系统提示“工号”应为
'0'-'9'的数字，请重新输入。
怎么写？

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #2

用maskedit

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #3

edit 中只输入数字其他的都输不进去
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or
ES_NUMBER);

 

轩

轩辕散光

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #4

数字用keypress事件判断就行咯

 

Y

yexiaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #5

可以在EDIT框的onchange事件中写代码判断输入的字符是否数字
如果不是数字则showmessage。

 

R

rookie_ron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #6

在keypress事件中加入
if not key in['0'..'9', #8, #13] then

begin
key := #0;
ShowMessage('');
end

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #7

edit1.onkeypress
if key<#30 or key>#40 then
key:=#0
(请查一下0和9的ACSII是否为#30 ,#40

 

H

hpretty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #8

your onkeypress events should like this
if not (key in['0'..'9',#8]) then
//#8 backup key
begin
key := #0;
// clear input
your notice message...
end;

 

Z

zhch_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #9

在输入工号的EDIT控件的KeyPress事件中写入如下代码:
if not ( key in ['0'..'9',#8]) then
key:=#0;即可,不需要输的字符根本数不进去

 

N

nicet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #10

多人接受答案了。