下面两个函数均是对于一个字符串将其以某个分割符分开：
　　
　　  function SplitStrToArray(const tString, tSplit: String): TStringList;  
　　     //以后成为方法1，这也是《delphi超级猛料》中提到的算法
　　  var
　　    t_Str, t_Item: WideString;
　　    t_Index, t_Len: Integer;
　　    t_StrList: TStringList;
　　  begin
　　    t_StrList := TStringList.Create();
　　    t_Str := tString;
　　    t_Len := Length(tString);
　　    t_Index := pos(tSplit, t_Str);  //语句1
　　    if t_Index 0 then
　　    begin
　　      while t_Index 0 do
　　      begin
　　        t_Item := LeftStr(t_Str, t_Index - 1);
　　        t_Str := MidStr(t_Str, t_Index + 1, t_Len);
　　        t_Index := Pos(tSplit, t_Str);
　　        if Length(t_Item) 0 then
　　          t_StrList.Add(t_Item);
　　      end;
　　    end;
　　    if Length(t_Str) 0 then
　　      t_StrList.Add(t_Str);
　　    Result := t_StrList;
　　  end;
　　
　　  function SplitString(const source,ch:string):TStringList;
　　//以后成为方法2;
　　  var
　　    temp:string;
　　    i:integer;
　　    begin
　　      result:=tstringlist.Create;
　　      temp:=source;
　　      i:=pos(ch,source);
　　      while i0 do
　　        begin
　　        result.Add(copy(temp,0,i-1));
　　        delete(temp,1,i);
　　        i:=pos(ch,temp);
　　        end;
　　    result.Add(temp);
　　  end;
　　
　　看上去两段代码都没有问题，然而，实际用这两段进行测试时：比如：
　　  s:='美国a,aab,中国,ddf';
　　  t:=SplitStrToArray(s,',');
　　//t:=SplitString(s,',');
　　  for i:=0 to t.Count-1 do
　　    showmessage(t.Strings[i]);
　　
　　    会发现方法1不能识别中文，也就是说在有中文的字符串里面，方法一不能正确分割。而方法2可以。问题出现在哪里呢？
　　    我又跟踪程序发现，两个函数在进入循环之前都执行了一个pos( )函数，而方法1此时返回的值是4，方法2返回的就是6，所以方法1自然不能正确识别了。那么问题又来了，在他们的pos之前，两个函数都没有做什么奇怪的操作啊。
　　    再尝试，将方法1的 语句1，即t_Index := pos(tSplit, t_Str);的pos的第二个参数修改为函数的形参tString,那么，此句t_Index的值就是正确的6，而以后的分割又错了。
　　    我实在是想不通了，不知道哪位达人遇到过类似的问题，还是说我分析的不对，还是delphi的bug？