delphi - 从 TStringList 中删除空字符串

Question

Delphi 中是否有任何内置函数可以从 TStringList 中删除所有空字符串？

如何循环遍历列表来删除这些项目？

Answer 1

要回答你的第一个问题，没有内置函数可以实现这一点。手动循环很容易。这应该可以做到:

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

请注意，for 循环必须从 Count-1 开始到 0 反向遍历列表才能正常工作。

Trim() 的使用是可选的，具体取决于您是否要删除仅包含空格的字符串。将 if 语句更改为 if mylist[I] = '' then 将仅删除完全空的字符串。

这是一个完整的例程，显示了正在运行的代码:

procedure TMyForm.Button1Click(Sender: TObject);
var
  I: Integer;
  mylist: TStringList;
begin
  mylist := TStringList.Create;
  try
    // Add some random stuff to the string list
    for I := 0 to 100 do
      mylist.Add(StringOfChar('y', Random(10)));
    // Clear out the items that are empty
    for I := mylist.count - 1 downto 0 do
    begin
      if Trim(mylist[I]) = '' then
        mylist.Delete(I);
    end;
    // Show the remaining items with numbers in a list box
    for I := 0 to mylist.count - 1 do
      ListBox1.Items.Add(IntToStr(I)+' '+mylist[I]);
  finally
    mylist.Free;
  end;
end;