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;

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

演示程序下载