从TStringList中删除空字符串

时间:2014-04-08 17:35:37

标签: delphi vcl

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

如何遍历列表以删除这些项目?

2 个答案:

答案 0 :(得分:18)

要回答您的第一个问题,没有内置功能。手动循环很容易。这应该这样做:

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;

答案 1 :(得分:-1)

另一种消除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);