[update]Delphi分割字符串的函数 ExtractStrings

一直以为Delphi中没有分割字符串的函数，以前曾经自己写过，也用过RegExpr来分割，今天无意中发现Delphi本身就有ExtractStrings，而且功能还不弱，分割的同时还可以去空字符串和去空白（可以自定义）．

ExtractStrings Routine Fills a string list with substrings parsed from a delimited list.

Unit Classes

Syntax

[Delphi] function ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;

Description Use ExtractStrings to fill a string list with the substrings of the null-terminated string specified by Content.

Separators is a set of characters that are used as delimiters, separating the substrings. Carriage returns, newline characters, and quote characters (single or double) are always treated as separators. Separators are ignored when inside a quoted string until the final end quote. (Note that quoted characters can appear in a quoted string if the quote character is doubled.)

WhiteSpace is a set of characters to be ignored when parsing Content if they occur at the beginning of a string.

Content is the null-terminated string to parse into substrings.

Strings is a string list to which all substrings parsed from Content are added. The string list is not cleared by ExtractStrings, so any strings already in the string list are preserved. ExtractStrings returns the number of strings added to the Strings parameter.

Note:

ExtractStrings does not add empty strings to the list.

[update]:
Separators 参数指定一组分割符，所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略（参看下面的例子）。
WhiteSpace 参数指定每个子串开头被忽略的字符s。
Content 参数就是被分割的“源”串了。
Strings 参数用于接收分割后的各个子串。它的原有内容不会被清空。别忘了Create哦。
另外，EctractStrings不会把（忽略WhiteSpaces后的）空串加入到Strings中。

写个例子吧：
比如
ABC|...  DEF|#### GHI|"不会被分开|# www.farproc.com"
要得到

ABC
DEF
GHI
不会被分开|# www.farproc.com

四个子串可以用下面的代码：

uses
  Classes;
var
  ASource: PChar;
  AStr: String;
  ACount: Integer;
  AStrings: TStringList;
begin
  ASource := 'ABC|...  DEF|#### GHI|"不会被分开|# www.farproc.com"';
  AStrings := TStringList.Create;
  try
    ACount := ExtractStrings(['|'], [' ', '#', '.'], ASource, AStrings);
    {do any further processing}
    /for AStr in AStrings do
    //  Writeln(AStr);
  finally
    AStrings.Free;
  end;

  Readln;
end.