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;
演示程序（源码）我已经打包上传了，大家可以下载看看
演示程序下载
相关文档：
//声明:
GetWindowText(
hWnd: HWND; {窗口句柄}
lpString: PChar; {接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
//举例:
var
arr: ......
参考资料
李战.《悟透delphi》，第1章“DELPHI的原子世界”
“探索Delphi类与对象的内存结构”
基本知识
动态内存与静态内存
当程序运行时，系统首先将所有数据装载入内存，完成初始化，然后从入口地址开始执行代码。
程序装载后即存在于内存空间中的数据我们称之为静态内存，运行过程中 ......
*类的公开属性（代码）
示例：访问类的published属性
说明：vmtFieldTable（Published Field表）指向Published Field表有序排列，只存储当前类的PublishedField表，得到父类的Published Field表需要往上遍历。
注意：只有类型是类或接口的数据成员才可定义为published的访问级别
代码：
type
TMyO ......
本书以实例为主线，辅以必要的技术背景要点来讲解Delphi 6．0编程的精髓；本书实例偏重于多媒体和网络程序开发，其中涉及到OpenGL、Indy组件、XML、Web Broker和WebSnap等技术。本书还讲述了Delphi中的SQL编程，在两个短小精练的程序中充分运用了Delphi数据开发技术，包括BDE组件的ADO组件的使用。通过本书，让读者在编程� ......
1、 放一下memo控件、一个button、opendialog
在button的click事件中
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.filename);
2、滥简单的事啊
var
Mytxt : TStringList;
begin
MyText :=
TStringList('你的文本文件及路径');
&nbs ......
