delphi - 如何验证在 TEdit 中输入的值以及如何限制 TMaskEdit 只允许数字？

Question

我需要帮助来验证某些控件。

问题 1：
我的表单上有一个 TEdit 控件。我想检查用户输入的数据是字母还是数字。

问题 2：
我的表单上有一个 TMaskEdit 控件，我想限制用户只能输入数字。

任何人都可以发布代码示例如何做到这一点？
任何帮助表示赞赏。

Answer 1

我的表单中有一个 TEdit 控件。我想检查用户输入的数据是字母还是数字。

查看TryStrToInt()SysUtils 单元中的函数。如果它返回 True，则文本是一个有效数字。

我的表单中有一个 TMaskEdit 控件。我希望用户只输入数字。

阅读有关该TMaskEdit.EditMask属性如何工作的文档。将掩码设置为包含尽可能多的'#'字符，以允许用户输入数字。

或者，切换到TEdit并使用该SetWindowsLong()功能为其赋予ES_NUMBER样式。