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

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

下面两个函数均是对于一个字符串将其以某个分割符分开:

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?

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航