我是新人请帮帮我。

10 | 问答知识库用户 |浏览307次
收藏|2014/05/17 22:00
我如何判断edit1.text 输入的是数字,如果不是数字如何处理!

满意回答

2014/05/18 09:30

限制为只允许输入数字
procedure TfrmInput.EdtValueKeyPress(Sender: TObject; var Key: Char);
begin
  if not CharInSet(Key, ['0' .. '9', #8, #32]) then
    Key := #0;
end;

读取的时候判断下是否为空,或  TryStrToInt

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...