Leere MemoLines herausfiltern

[shmia]

Delphi-Quellcode:

{**************************************************************************
 * NAME:    RemoveEmptyStrings
 * DESC:    lösche leere Zeilen aus StringListe
 * RESULT:  Anzahl der Löschungen
 *************************************************************************}
function RemoveEmptyStrings(list : TStrings):Integer;
var
   i : Integer;
begin
   Assert(Assigned(list));
   Result := 0;
   for i := list.Count-1 downto 0 do
   begin
      if TrimRight(list[i]) = '' then
      begin
         list.Delete(i);
         Inc(Result);
      end;
   end;
end;

Die Funktion löscht rückwärts; hat also den Bug, den mein Vorposter angesprochen hat nicht.