TStringHelper.Split

作为对泛型的支持，TStringHelper.Split方法理所应当地出现了。

示例代码1：

var
  iText: string;
  iAStr: TArray<string>;
  I: Integer;
begin
  iText := ‘白内障超声乳化/白内障小切口/ECCE/人工晶体植入术/翼状胬肉切除/角膜缘干细胞移植术/青
光眼手术/眼睑内翻矫正术/泪囊置管术/鼻腔泪囊吻合术’;
  iAStr := iText.Split(['/'], TStringSplitOptions.None);
  for I := Low(iAStr) to High(iAStr) do
    ListBox1.Items.Add(iAStr[I]);

end；

代码执行后的结果（显示在ListBox1中）：

白内障超声乳化

白内障小切口

ECCE

人工晶体植入术

翼状胬肉切除

角膜缘干细胞移植术

青光眼手术

眼睑内翻矫正术

泪囊置管术

鼻腔泪囊吻合术

成功分割字符串。在测试字符串的首尾都没有'/'。

示例代码2：

var
  iText: string;
  iAStr: TArray<string>;
  I: Integer;
begin
  iText := ‘白内障超声乳化’;
  iAStr := iText.Split(['/'], TStringSplitOptions.None);
  for I := Low(iAStr) to High(iAStr) do
    ListBox1.Items.Add(iAStr[I]);
end;

代码执行后的结果（显示在ListBox1中）：

白内障超声乳化

虽然没有出现'/'，但是返回了整个字符串。其中，TStringSplitOptions的两个值：None和ExcludeEmpty没有在这个例子中看出区别，易博龙也很不厚道，在其官方帮助中也没有找到关于这两个值的具体用法。究其英文意思，None不会排除空字符('')，ExcludeEmpty则会排除空字符('')。

注意：

Split方法不会改变字符串本身；Split有多个重载方法，其中亦可以指定取字符串的数量。

示例代码3：

var
  iText: string;
  iAStr: TArray<string>;
  I: Integer;
begin
  iText := '';
  iAStr := iText.Split(['/'], TStringSplitOptions.ExcludeEmpty);
  ListBox3.Items.Add('Low = '+Low(iAStr).ToString);
  ListBox3.Items.Add('High = '+High(iAStr).ToString);
  for I := Low(iAStr) to High(iAStr) do
    ListBox1.Items.Add(iAStr[I]);
end;

我的代码中出现了示例代码3的情况，程序从DB Field中读取出来的内容是''字符串时，我原以为iAStr仍会被赋值(iAStr[0]='')，为了验证，我写了示例代码3。ListBox1中的显示结果：

Low = 0

High = -1

这个结果出乎我意料，但说明了之后的for循环不会进行，也就很好说明了我项目代码中所担心的问题不会发生。之所以我所担心的问题不会发生是因为参数“TStringSplitOptions.ExcludeEmpty”，它排除了''字符串，所以不会给泛型字符串数组iAStr赋值。