Question

delphi 判断是否有字符串

Answer 1

有两种方法：
1、在edit1的onkeypress事件中输入如下代码
if not ( Key in ['0'..'9',#13,#16,#8]) then
begin
Key := #0 ;
Exit ;
end;

2、调用delphi本身自带的函数TryStrToInt来执行判断,例如在edit1的onExit事件中输入：
var i: Integer ;
begin
if not TryStrToInt(Trim(edit1.Text),i) then
begin
Application.MessageBox('您输入的数字不是整数，请重新输入。',
'错误提示', MB_OK + MB_ICONSTOP);
edit1.SetFocus ;
end;
end;