限制深入内容(整形、float等等)

解决方案 »

  1.   

    int、float用currencyedit(rx系列)
    其它字符限制可以自己编函数限制字符
      

  2.   

    用EDIT就可以呀try
      strtofloat(edit1.text);
    except
    begin
      application.messagebox('您的输入不正确,输入必须是数值!!','information',mb_iconinfromation+mb_ok);
      edit1.selectall;
      edit1.setfocus;
    end;
      

  3.   

    在exit事件中
    try
      strtoflat(edit.text);
    except
      showmessage('请输入合法的数据值');
    end;try
      strtoInt(edit.text);
    except
      showmessage('请输入合法的整型值');
    end;
      

  4.   

    procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
    begin
      if not (Key in ['0'..'9', '.', char(8)]) then
        Key := #0;
    end;