WEB开发网
开发学院软件开发Delphi 两个字符串分割函数引出的奇怪问题 阅读

两个字符串分割函数引出的奇怪问题

 2006-02-04 13:54:03 来源:WEB开发网   
核心提示:下面两个函数均是对于一个字符串将其以某个分割符分开:function SplitStrToArray(const tString, tSplit: String): TStringList; //以后成为方法1,这也是《delphi超级猛料》中提到的算法 var t_Str, t_Item: WideString;
下面两个函数均是对于一个字符串将其以某个分割符分开:

 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 i<>0 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?

Tags:两个 字符串 分割

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接