请问如何在DELPHI中检查输入框是否为数字,如果为数字的话在输入框中字体就为黑色;不是数字的话输入的字符为红色?
请高手提供帮助,谢谢!

解决方案 »

  1.   


    //在Edit1的OnChange事件中写如下代码
    try
      StrToFloat(Edit.Text);    //如果要求必须是整数,换成 StrToInt(Edit1.Text)
      Edit1.Color := clBalck;
    except
      Edit1.Color := clRed;
    end;
      

  2.   

    解答很详细,谢谢!
    我一看就明白了.
    我现在正在学DELPHI编程,可否加我好友....(我好贪心),可能有好多问题要请教你!(或是告诉我有这个QQ群也行)
      

  3.   

    用TryStrToFloat或TryStrToInt更好,他们直接返回布尔值。