频道分类

delphi TStrings 过滤空行

作者:admin 来源: 日期:2020/4/6 11:17:03 人气: 标签:

 
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 TStrings 随机打乱下一篇:没有资料