[原创]分割字符串的函数

(个人原创，转载请说明出处，zhouye,www.zyea.com,2006-4-06)
例如12,14,25,4是用,号分割的，要取出分割的字符串，分配到一个动态数组中，主要函数如下：
//用动态数组分割字符串，需要在uses中加入StrUtils,因为用到了rightstr函数。
{参数：
Str_flag: String; //分割字符串的标志，比如';'
Str: String; //待分割的字符串}
//得到字符串中分隔符的个数n，这样分割完的字符串有n+1个
function GetStrFlagCount(Str_flag, Str: string): Integer;
var
  i, j: Integer;
begin
  Result := 0;
  for i := 0 to Length(Str) - 1 do
  begin
    j := Pos(Str_flag, Str);
    if j > 0 then
    begin
      Str := rightstr(Str, j);
      Inc(Result);
    end
    else Break;
  end;
end;
//flagCount即为分隔符的个数
//var arr: array of String //放置分割结果
procedure SplitS(Str_flag, Str: string; flagCount: integer; var arr: array of string);
var
  i, l, p: Integer;
  tmp_Str: string;
begin
  for i := 0 to flagCount do
  begin
    p := pos(Str_flag, Str);
    if p > 0 then
    begin
      l := Length(Str);
      arr[i] := copy(Str, 1, p - 1);
      Str := copy(Str, p + 1, l);
    end
    else
      arr[i] := Str;
  end;
end;