新手求教：简单的delphi截取字符串问题

[xiaoming00x]

如：我有一个字符串
abcfangfei
如何取得第二个'f'的位置？

[hongss]

n:= 0;
Str:= 'abcfangfei';

for i:=0 to Length(Str)-1 do
  if Str[i]='f' then Inc(n);
  if n=1 then 
  begin
    Result:= i;
    Break;
  end;

[xiaoming00x]

谢谢！~~~

[bdmh]

用循环判断每一个字符，用一个变量计数