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;
演示程序（源码）我已经打包上传了，大家可以下载看看
演示程序下载
相关文档：
delphi编码规范文档
目录
1、前言 3
2、源程序书写规范 3
2.1通用源代码格式规范 3
2.1.1缩进 3
2.1.2边距 3
2.1.3 Begin…End语句 3
2.1.4注释 4
2.2 OBJECT PASCAL语句格式书写规范与用法 4
2.2.1括号 4
2.2.2保留字和关键字 4
2.2.3过程和函数 5
2.2.4变量 5
2.2.5类型 6
2.2.6语句 6
2.2.7结构� ......
//声明:
GetWindowText(
hWnd: HWND; {窗口句柄}
lpString: PChar; {接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
//举例:
var
arr: ......
1.因为KeyPreview默认是 False;我们这里需要响应键盘事件的话，需要将其修改为True；
所以KeyPreview:=True; 这对一些快捷键会有用。
在窗体属性上修改KeyPreview := True;
2.在窗体的FormKeyDown函数里写：
if KeyPreview then
Form将先响应键盘事件（在TEdit等控件之前）
else
除非Fo ......
参考资料
李战.《悟透delphi》，第1章“DELPHI的原子世界”
“探索Delphi类与对象的内存结构”
基本知识
动态内存与静态内存
当程序运行时，系统首先将所有数据装载入内存，完成初始化，然后从入口地址开始执行代码。
程序装载后即存在于内存空间中的数据我们称之为静态内存，运行过程中 ......
function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then
begin
SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
SetWindowText(Wnd, '选择一个目标');
end;
Result := 0;
end;
//hdl: 窗口句柄
//Root: 根� ......
