Edit1.Text:=Trim(Edit1.Text); if (Edit1.Text<>'') then //若去除前导和尾随空格后为非空 begin try if (strtoint(Edit1.Text)<1) or (strtoint(Edit1.Text)>48) then //...提示数值范围错误,自己写 else //...输入为合法数据时的处理 except begin showmessage('请输入数值'); Edit1.setFocus; Edit1.selectAll; end end; end