Question

delphi中如何检查edit控件中是否输入了字符‘@’，假设还输入了很多其他的字符！

Answer 1

OnChange事件中
if pos('@',edit.text)>-1 then
showmessage('There is @ in EditText!');

Answer 2

假定判断是否输入@和-这2个字符

for i := 1 to length(edit1.text) do
if edit1.text[i] in ['@', '-'] then
begin
showmessage('内容包含@或-');
break;
end;