首页 相关文章 两个字符串分割函数引出的奇怪问题

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

下面两个函数均是对于一个字符串将其以某个分割符分开:
  
   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 := Le...[ 查看全文 ]

2016-02-19 标签:

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

手机页面
收藏网站 回到头部