Delphi 从TStringList中删除空字符串

Delphi中是否有任何内置函数可以从

TStringList

中删除所有空字符串

---

如何循环列表以删除这些项目

要回答第一个问题，没有内置函数。手动循环很容易。这应该做到：

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]=''，则

只会删除完全空的字符串

下面是一个完整的例程，显示了正在运行的代码：

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;

---

另一种消除Trim和Delete产生的开销的方法应该适用于任何与TStringList兼容的对象

S := Memo1.Lines.Text;

// trim the trailing whitespace
While S[Length(S)] In [#10, #13] Do
  System.Delete(S, Length(S), 1);

// then do the rest
For I := Length(S) DownTo 1 Do
  If (S[I] = #13) And (S[I-1] = #10) Then
    System.Delete(S, I, 2);

---

反向遍历至关重要（+1）。也许答案最好对此说一句话，而不是详细说明“可选的”

Trim

部分。您的解决方案为理解它引入了大量开销。但是在规范化过程之后，它没有将文本应用到

Memo1.Lines.text

。顺便说一句，这不仅与

TStringList

兼容，还要检查

Memo1.Lines.Text

的类型。