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 不管什么日期格式转换都不会错了

Delphi 如何将整数值转换为罗马数字表示形式

Delphi 使用 inputbox、inputquery 的启发

Delphi通过解析搜狐网页来获取天气的函数

Delphi 调用ie隐藏的命令

Delphi实现双击左ctrl键调用记事本

Delphi url 编码的装换

Delphi nethttpclient1 数据库查询

Delphi 操作 pdf -- 使用 acrobat sdk 初探

Delphi计算md5

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

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