delphi TStrings 过滤空行

本文整理自网络，侵删。

 
procedure FilteredBlankLines(Strings: TStrings);
var
  i: Integer;
begin
for I := Strings.count - 1 downto 0 do
begin
  if Trim(Strings[I]) = '' then
    Strings.Delete(I);
end;
end;
 

相关阅读 >>

Delphi 保存hotkey1.hotkey值

Delphi 处理链接和文件路径结尾\和/

Delphi idhttp returning http 1.1/500 显示错误内容

Delphi 根据进程id获取程序ico图标

Delphi 2010/xe下隐藏程序在系统任务栏的图标

Delphi下firedac连接mysql数据库零起点

Delphi shellexecute 发送邮件

Delphi中判断一个字符串是否为数字

Delphi 调用dll运行正常，退出时弹出错误解决办法

Delphi idhttp读取网页重定向

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi TStrings 过滤空行