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在64位系统下写注册表注意事项

Delphi 让子窗体显示在任务栏上

Delphi 以系统权限运行程序的代码

Delphi idwhois1 简单的用法

Delphi function 与 procedure

Delphi取得cxgrid 合计数

8086 汇编指令手册查询

Delphi 实现执行外部程序,并等待程序结束的函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...