字符分割函数.

最新推荐文章于 2022-03-27 16:52:05 发布

原创最新推荐文章于 2022-03-27 16:52:05 发布 · 595 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #integer #function

DELPHI 专栏收录该内容

74 篇文章

订阅专栏

本文介绍了一个使用Delphi/Pascal语言实现的字符串分割函数functionsplit。该函数通过指定的分隔符将原始字符串分割成多个子串，并存储在一个TStrings类型的列表中。文章详细展示了函数的实现过程，包括初始化字符串列表、定位分隔符位置、提取子串等关键步骤。

   1. function split(split_str : string ; line_str : string ) : TStrings ;
   2. //字串分割分割用字元 , 原始字串，
   3. var
   4. posi : integer ;
   5. str : TStringList ;
   6. l_str : string ;
   7. begin
   8. str := TStringList.Create;
   9. posi := pos(split_str, line_str) ;
10.
11. while (posi > 0) do begin
12.       l_str := copy(line_str,1, posi-1) ;
13.       str.Add(l_str) ;
14.       line_str := copy (line_str , posi+length(split_str), length(line_str) - posi-length(split_str)) ;
15.       posi := pos(split_str, line_str) ;
16. end ; //while
17. str.Add(line_str) ;
18.
19. Result :=   str ;
20.
21. end ;