Delphi中是否有任何内置函数可以删除TStringList
中空的所有字符串?
如何遍历列表以删除这些项目?
答案 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);