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