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.