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 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出

Delphi剪切板-监视剪贴板

Delphi 获取image.picture.data的数据

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi tparallel.for 老外得示例代码

Delphi:取得浏览器地址，网址(支持ie，firefox)

Delphi 网上获取北京时间firedac 下的 sqlite [3] - 获取数据库的基本信息

Delphi unigui程序部署到服务器

Delphi图像数据压缩解压缩实例

Delphi中怎么判断一个文件夹是否为空

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

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