Question

Delphi中限制DBedit只能输入email地址

我想在Emil这里只能输入电邮格式，然后单机确认添加人物信息的时候若不是email格式时，会弹出警告，怎么设置？代码？谢谢！

Answer 1

if pos('@',edit1.text)=0 then
begin
showmessage('输入的电邮地址不符合要求!');
edit1.text:='';
end;