怎样防止输入错误？

Question

在STRINGGRID的ONKEYDOWN写代码
例如：
if 在你的CELL里 then //(可以在GRID的ONSELECTCELL里得到)
IF KEY NOT IN [ORD(0)..ORD(9)] THEN KEY :=0;
如果想判断正负还可以在加限制

Answer 1

在DBGRID的KETPRESS事件里面写
IF KEY NOT IN [‘0’..‘9’] THEN KEY :=0;************************************************************倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪磊磊磊倪
倪磊磊磊倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪磊磊磊倪
倪磊磊磊倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪磊磊磊倪
倪磊磊磊倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪磊磊磊倪
倪磊磊磊倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪磊磊磊倪
倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊磊磊磊磊磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪磊倪倪磊磊磊倪倪倪
倪倪磊磊磊倪倪倪倪倪倪磊磊磊磊磊磊磊磊倪倪磊磊倪磊磊磊倪倪倪
倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊磊磊倪倪倪
磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊磊倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊磊磊倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊磊倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪
倪倪磊磊倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪磊磊倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
磊倪倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪倪倪
倪倪倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪

Answer 2

在你的TDBGRID的onKETPRESS事件里面写
IF KEY NOT IN [#48..#57,#96..#105] THEN
begin
 KEY :=0;
 beep;
end;其中#48到#57是数据键，#96到#105是小键盘数据键

Answer 3

if key not in ['0'..'9'] then 
begin
 key:=0;
 beep;
end;

Answer 4

谢谢各位，但我不是delphi的熟练使用者，这些代码到底加在何处？
比如一个form1,一个stringgrid1

Answer 5

加在你的tedit的onkeypress事件代码里面啊

Answer 6

KeyPress
if (StringGrid1.Col = ..) and (StringGrid1.Row= ..  )= then
IF KEY NOT IN [#48..#57,#96..#105] THEN
begin
 KEY :=#0;
 beep;
end;其中#48到#57是数据键，#96到#105是小键盘数据键