folgendes geht auch (ohne extra Liste)
Delphi-Quellcode:
Procedure RemoveEmptyLines (aList : TStringList);
Var
i,j : Integer;
Begin
j:=0;
for i:=0 to aList.Length-1 do
if aList[i]<>'' then begin
aList[j] := aList[i];
j := j + 1;
end;
SetLength(aList,j);
End;
(Ungetestet) Im Prinzip rennt man die Liste einmal durch und kopiert nur die nichtleeren Zeilen. Nach jedem Kopiervorgang erhöht man die Zielposition j um 1.
Braucht kaum/keinen extra Speicher
