【搞定】[测试]小问题**

tomato

procedure THDGLCT.DtSdTsKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8,#13]) then
  begin
    Key:=#0;
    JsDialogs.ShowWarning('请您输入整数！not 'xxxxxxx');
  end;
end;

这样写为啥不对?
[错误]Biz:\HNXDHYGL\YSPSGL\HDGLGN.FUNC.DIR\HDGLCT.Form.pas(77, 10): Incompatible types: "Ordinal" and "Char&"

atiger

关于数组的定义，请参考http://bbs.justep.com/forum.php?mod=viewthread&tid=596

另外，还有一个帖子，供参考:

http://bbs.justep.com/forum.php?mod=viewthread&tid=3653

稍等我再看一下

水木风

问题已经提交相关人员

atiger

更改为：例如这样就可以了

  if (Char(Key) in ['0','1','2','3','4','5','6','7','8','9',#8,#13]) then

tomato

写成if not (Char(Key) in ['0','1','2','3','4','5','6','7','8','9',#8,#13]) then是可以了,但是我的本意是只能输入数字,但是不知道为啥输入s时不会弹出提示呢.

tomato

就这样吧.谢谢!

atiger

ok

结贴

wenxy

最初由 tomato 发布
[B]就这样吧.谢谢! [/B]

if not (Char(Key) in ['0','1','2','3','4','5','6','7','8','9',#8,#13]) then
    begin
      dialogs.ShowMessage('只能输入数字！');
      key:=#0;
      edit1.SetFocus;
    end;

qswrtyupxv输入这些字符也不会提示哦

用这个：
case key of
     '0'..'9': ;
     #8: ;
     '.': ;
     else
     begin
       key :=   #0;
       dialogs.ShowMessage('只能输入数字！');
     end;
    end;