Delphi中如何将逗号分隔的字符串转换为StringList并去除空项？

Question

在Delphi开发中，如何将逗号分隔的字符串正确转换为StringList并去除空项是一个常见需求。例如，给定字符串`'apple, banana, , orange,, grape'`，我们希望得到一个不包含空项的StringList。实现时可能遇到的问题是：直接使用`DelimitedText`属性或`CommaText`方法可能会保留空字符串作为列表项。 解决方法如下：首先创建一个`TStringList`实例，然后通过`StrictDelimiter := True`确保严格按逗号分割。接着使用`CommaText`属性赋值，并调用自定义函数遍历移除空白项。更简洁的方式是结合`Split`方法（Delphi XE7及以上版本支持），先分割字符串为数组，再过滤非空值添加到StringList中。这种方法不仅高效，还能灵活处理多种分隔符场景。

Answer 1

1. 问题概述

在Delphi开发中，将逗号分隔的字符串转换为StringList并去除空项是一个常见需求。例如，给定字符串`'apple, banana, , orange,, grape'`，我们希望得到一个不包含空项的StringList。

实现时可能遇到的问题是：直接使用`DelimitedText`属性或`CommaText`方法可能会保留空字符串作为列表项。这会导致生成的StringList中包含不必要的空白项，影响后续处理逻辑。

2. 常见问题分析

以下是可能导致问题的原因：

• 默认行为： `TStringList.CommaText` 和 `DelimitedText` 默认会保留空字符串作为列表项。
• 分隔符冲突： 如果字符串中存在多余逗号或空格，可能导致分割结果不符合预期。
• 版本限制： 在较低版本的Delphi中（如XE7以下），缺乏更灵活的字符串操作方法。

3. 解决方案

以下是两种常见的解决方案：

3.1 使用 TStringList 的 StrictDelimiter 属性

通过设置 `StrictDelimiter := True` 确保严格按逗号分割，并手动移除空项：

procedure ConvertToCleanStringList(const Input: string; StringList: TStringList);
var
  I: Integer;
begin
  StringList.Clear;
  StringList.StrictDelimiter := True;
  StringList.Delimiter := ',';
  StringList.DelimitedText := Input;

  for I := StringList.Count - 1 downto 0 do
    if Trim(StringList[I]) = '' then
      StringList.Delete(I);
end;

3.2 使用 Split 方法（推荐）

Delphi XE7及以上版本支持 `Split` 方法，可以更简洁地实现目标：

procedure ConvertToCleanStringList(const Input: string; StringList: TStringList);
var
  Items: TArray;
  Item: string;
begin
  StringList.Clear;
  Items := Input.Split([',']);
  for Item in Items do
    if Trim(Item) <> '' then
      StringList.Add(Trim(Item));
end;

4. 流程图

以下是使用 Split 方法的流程图：

graph TD;
    A[输入字符串] --> B{是否支持Split?};
    B --否--> C[使用CommaText];
    B --是--> D[调用Split方法];
    D --> E[过滤空项];
    E --> F[添加到StringList];
    C --> G[手动移除空项];
    G --> F;

5. 性能对比

以下是两种方法的性能对比：

方法	适用版本	代码复杂度	灵活性
TStringList + StrictDelimiter	所有版本	较高	有限
Split 方法	XE7及以上	较低	高

对于需要兼容旧版本的情况，可以选择第一种方法；而对于现代版本，则推荐使用第二种方法。