Ja, ja das kommt davon, wenn man keine sauberen Funktionen schreibt!
Hier kommt mal eine ausgereifte Funktion:
Delphi-Quellcode:
{**************************************************************************
* NAME: RemoveEmptyStrings
* DESC: lösche leere Zeilen aus TStrings Objekt
* PARAMS: [-]
* 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 list[i] = '' then
begin
list.Delete(i);
Inc(Result);
end;
end;
end;
Und der Aufruf wäre dann
RemoveEmptyStrings(Memo1.Lines);