怎么查找字符串中某个字符的数量

【求助】如何查找字符串中某个字符的数量
请问：如何查找字符串中某个字符的数量？
比如，判断邮箱地址，用户是否重复输入多个“@”？等等。
例：字符串“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;