Leere MemoLines herausfiltern

[user0815]

Delphi-Quellcode:

      i := 0;
      while i < sl.Count do
      if trim(sl[i]) = ''
       then sl.Delete(i)
        else inc(i);