如何限制输入字符串

Question

当Edit里面的字符没有"@"是就提示，该怎么样实现？

Answer 1

在OnChange中判断 Pos('@', Edit1.Text) > 0表示存在，否则不存在

Answer 2

还是在ONEXIT（）中写吧
 if Pos('@', Edit1.Text) > 0 then
   showmessage('find !')
 else
  showmessage('not find.');

Answer 3

Pos('@', Edit1.Text) > 0

Answer 4

估计你要这个`~`判断输入是否是邮件地址function IsEMail(EMail: String): Boolean; 
var s: String;ETpos: Integer; 
begin 
ETpos:= pos('@', EMail); 
if ETpos > 1 then 
begin 
  s:= copy(EMail,ETpos+1,Length(EMail)); 
  if (pos('.', s) > 1) and (pos('.', s) < length(s)) then 
    Result:= true else Result:= false; 
  end 
  else 
   Result:= false; 
end;