Problem mit Leerzeile in einer TStringlist!

[shmia]

Das Problem mit den Leerzeilen gibt es öfters.
Was macht man, wenn man ein Problem öfters hat?
Man löst es allgemeingültig:

Delphi-Quellcode:

// 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;