delphi中如何检查edit控件中是否输入了字符‘@’，假设还输入了很多其他的字符,并且是光标离开控件后再检查

2025-03-04 19:28:52

推荐回答（2个）

回答1：

离开控件时检验是在这个控件的onexit事件中，用函数pos('@',edit1.text)判断。
if pos('@',edit1.text) >0 then showmessage('输入了@')
如果是离开后，你就需要知道离开后触发什么事件，把这个函数写到对应的事件里。

回答2：

procedure TForm1.Button1Click(Sender: TObject);
begin
if pos('@',Edit1.Text)>0 then
begin
ShowMessage('有@');
end
else
ShowMessage('无@');
end;