请教一个关于获得字符串位置的问题？

Question

比如一个字串：
str:='aa,bb,ee,00,12,13,.......tt,pp';用Pos()可以获得第一个‘，’的位置，
我想获得第i个‘，’的位置有什么好方法吗？

Answer 1

function PosEx(const Source, Sub: string; Index: Integer = 1): Integer;
var
  I, J, K, L: Integer;
  T: string;
begin
  Result := 0;
  T := Source;
  K := 0;
  L := Length(Sub);
  for I := 1 to Index do begin
    J := Pos(Sub, T);
    if J <= 0 then Exit;
    Delete(T, 1, J + L - 1);
    Inc(K, J + L - 1);
  end;
  Dec(K, L - 1);
  Result := K;
end; { PosEx }