【结帖】Edit控件只能输入数字代码有错!**

巧克力味

下面的代码在Delphi里正常,在X3里就不得了!
procedure TXZBZZCT.Edt_ZQTSKeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in ['0'..'9','.'])  then
  begin
   Dialogs.ShowMessage('请输入一个1-30的整数');
   key := #0;
  end;   
end;

错误信息:
[错误]Biz:\RLZYGLXT\KQGL\SJSD\XZBZ.FUNC.DIR\XZBZZCT.FORM.PAS(187, 12): Incompatible types: "Ordinal" and "Char&"

lixy

http://bbs.justep.com/forum.php? ... 4&highlight=Key

zfang

请以‘有效输入字符’在论坛搜索

巧克力味

谢谢,lixy,呵呵!