如何对输入DBEDIT中的数值进行长度检验，不对的提示重输！(50分)

L

lymillion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #1

如何对输入DBEDIT中的数值进行长度检验，不对的提示重输！
希望能以身份证输入为例子，给出主要语句或操作！

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #2

在onexit事件中判断
if length(dbedit.text) <> 18 then do something

 

N

netke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #3

if (Length(DBEdit.text) <> 18) or (Length(DBEdit.text) <> 15) then 者说
//18 位是新的 15位是旧的
begin
ShowMessage('错误信息');
Exit;
end;

 

N

netke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #4

如果你的按钮有设置ModalResult
在Exit之前还要加一句:
Self.ModalResult:=mrNone;

 

L

lymillion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #5

多谢两位的帮忙，本人新手，希望以后能继续不吝赐教！
NETKE 语句中的OR 改为 AND