返回字符在字符串中第n次出现的位置

记不住那么多，把自己写的东西放放上来做个备份！

{-------------------------------------------------------------------------------
  函数名:    PosChar
  作者:      
  日期:      2011.12.14
  参数:      SubStr: WideString; S: WideString; AIndex: Integer
  返回值:    Integer //返回参数SubStr 在 S 中第 Aindex 次出现的位置
-------------------------------------------------------------------------------}

function PosChar(SubStr: WideString; S: WideString; AIndex: Integer): Integer;
var
  I: Integer;
  A: Integer;
begin
  Result := 0;
  A := 0;
  for I := 1 to AIndex do
    A := PosEx(SubStr, S, A + 1);
  Result := A;
end;