下面介绍Delphi自带的字符串分割函数，根据你的需要来使用。

1、ExtractStrings

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer; 

第一个参数是分隔符，可以是多个，例如 [';',',',':'] 可以按分号、逗号、分号来同时分割。

第二个参数是开头被忽略的字符，例如['<','>',' ']，被分割出的字符，如果开头有大于号，小于号，或者分号，被分割出来后会被忽略。

第三个参数是被分割的字符串。

第四个参数返回分割出的字符串数量。

注：该函数只能按单个字符进行分割，不能按字符串进行分割。

2、SplitString

function SplitString(const S, Delimiters: string): TStringDynArray;

第一个参数是被分割的字符串。

第二个参数是分隔符，可以包含多个分隔符，例如';,:'，可以按分号、逗号、分号来同时分割。

返回值是分割的结果。

注：这个函数在早期的Delphi中没有，跟ExtractStrings的用法相近，参数更少，使用更方便一些，要引用这个单元System.StrUtils

3、使用正则式 TRegEx.Split

function TRegEx.Split(input, pattern : string): TArray<string>

第一个参数是被分割的字符串。

第二个参数是分隔符。

注：该函数可以完全替代上面两个函数，正则式的功能很强大，上面两个函数只能按某几个字符进行分割，正则式则可以按字符串、或者匹配字符串进行分割，需要引用单元 RegularExpressions，在Delphi XE以及以后版本中包含正则式。

---------------------
作者：李正己
来源：CSDN
原文：https://blog.csdn.net/webouse/article/details/52774936
版权声明：本文为博主原创文章，转载请附上博文链接！