DELPHI TListBox (TStrings类)删除空行的方法

    之前做一个程序，用ListBox读入一个文本文件，但文本中有空行，为了删除其中的空行，折腾了好长时间。

 

    先给出一段代码给大家看

var
  i:Integer;
begin
  ListBox1.Items.LoadFromFile('data.txt');
  for i:=0 to ListBox1.Count - 1 do
  begin
    if Trim(ListBox1.Items.Strings[i])='' Then
      ListBox1.Items.Delete(i);
  end;
end;

      相信不少人会这样写（包括我以前也是），特别是新手，但是这是行不通的，运行时给出 list index out of bounds 错误（下标超界），为什么会这样呢？

主要是这个for循环中to后面的 ListBox1.Count 已是作为一个固定值，不会改变的，而下面执行了ListBox1.Items.Delete(i); ，导致ListBox1 中的数目减少，所以会出现下标超界的错误。

 

其实解决这个问题很简单，改变一下思维方式就可以了，将for循环改为

i:=ListBox1.Count - 1; while(i>0)do begin if Trim(ListBox1.Items.Strings[i])='' Then ListBox1.Items.Delete(i); Dec(i); end;

 

演示程序（源码）我已经打包上传了，大家可以下载看看

演示程序下载