Zeile aus Stringlist löschen, wie optimieren?

[Furtbichler]

Also das ist kürzer und schneller (20% bei mir):

Delphi-Quellcode:

var
   i,j : Integer;

begin
   j:=0;
   for i := 0 to sl.Count - 1 do
    if sl[i] <> '' then begin
      sl[j] := sl[i];
      inc(j);
    end
End;