如何判断用户输入的合法性？(100分)

马

马晓光

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #1

各位，这是一个非数据库问题，我想让用户在Tedit中只输入Integer类型的数据，
不知如何判断用户是否输入了合法的数据，请问判断函数该如何写？
谢谢！

我的邮箱是 happybrain@sohu.com

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #2

procedure EditKey_Press(Sender: TObject; var Key: Char);
begin
if not (Key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then
begin
key := #0;
end;

end;

 

天

天什

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #3

procedure EditKey_Press(Sender: TObject; var Key: Char);
begin
if not (Key in [0..9]) then
begin
key := #0;
end;
end;

 

雨

雨季飘零

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #4

procedure EditKey_Press(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
begin
key := #0;
end;
end;
楼上的朋友的[0..9]会出现类型错误。

 

G

ghuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #5

同意樓上

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #6

同意雨季飘零,

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #7

//只允许录入数值
procedure TfrmFilterLbcx.edt_YearKeyPress(Sender: TObject; var Key: Char);
begin
if (ord(key)<>8) and not((ord(key)>=48) and (ord(key)<=57)) then
key:=#0;
end;

 

N

nblgy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-06

• #8

procedure EditKey_Press(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
begin
key := #0;
end;
end;

 

J

jsongy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-06

• #9

o!

 

H

hly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-06

• #10

procedure EditKey_Press(Sender: TObject; var Key: Char);
begin
if(Key<>#8)and(not(Key in ['0'..'9'])) then
begin
Key:=#0;
ShowMessage("只能输入数字！");
end;
end

 

S

snail_kbb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-06

• #11

还可以用MaskEdit

 

风

风中流云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-06

• #12

用MASKEDIT界面不美观。
虽然前面几种方法都可行，但是最好在onexit里再检验一下输入是否合法。。因为用户可用
用粘贴或其它方式来完成输入工作。

onkeypress;
if not (Key in ['0'..'9',#13,#8,#46]) then//不应该把回车和DEL、BACKSPACE过滤掉
begin
key := #0;
end;
onexit;

try
inttostr(edit1.text);
except
showmessage('输入不合法');
end;

 

美

美国提子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-06

• #13

同意楼上

 

马

马晓光

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #14

多人接受答案了。