怎样判断edit框中输入的不是阿拉伯数字，请高手指教！(20分)

W

wanglong1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #1

怎样判断edit框中输入的不是阿拉伯数字，请高手指教！

 

D

dpzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #2

在edit的keypress事件中写入
if not (key in ['0'..'9','.']) ;then ;showmessage('不能輸入字符');

在[]中可以输入限制的条件。。。。。！

给分拉！

 

J

jlyin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #3

function IsValidNumber(Key: Char): Boolean;
begin
; Result:= (Key in [DecimalSeparator, '0'..'9']) or
; ; (Key < #32) or (Key = Chr(VK_RETURN));
end;

 

B

billxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #4

同意，太简单了

 

W

wanglong1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #5

请问dpzhou，我输入了数字，为什么也showmessage('不能輸入字符');

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #6

//KeyPress
if not (key in ['0'..'9']) ;then ;
key=#0;

 

J

james.tane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #7

阿拉伯数值的Ascii码只是在一定范围的，将数值转换成Ascii码再判断是不是在这个范围
内，不在就表示不是数值！

for i:=0 to n do ; ; ;///n指text的数位
begin
; if (ascii(edit.text(i))>x) or (ascii(edit.text(i))<y) then
; ; ; ; ; ; ; ; ;showmessage('not number');
end

 

N

netabloid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #8

gz

 

W

wanglong1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #9

多人接受答案了。