作为对泛型的支持,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赋值。

05-22 09:18