【求助】如何查找字符串中某个字符的数量
请问：如何查找字符串中某个字符的数量？
比如，判断邮箱地址，用户是否重复输入多个“@”？等等。
例：字符串“abcabcabc”，如何判断该字符串里面有几个“a”？

------解决方案--------------------------------------------------------
Delphi(Pascal) code

var

i,Count:integer;

begin

Count:=0;

for i:=1 to length(Str) do

begin

if Str[i]='a' then

Count:=Count+1;

end;

ShowMessage(IntToStr(count));

end;