Stringliste von leeren Strings befreien

[sakura]

Hier wieder mal eine Lösung für eine häufig gestellte Frage. Die nachstehende Funktion durchläuft eine Stringliste und entfernt alle leeren Zeilen.

Hinweis: Die letzte (leere) Zeile eines (z.B.) Memofeldes gilt nicht als leere Zeile, dass ist lediglich auf die Handhabung der Memofelder durch Windows zurückzuführen.

Delphi-Quellcode:

procedure RemoveEmptyLines(Strings: TStrings); 
var 
  I: Integer; 
begin 
  for I := Pred(Strings.Count) downto 0 do 
    if Strings[I] = '' then 
      Strings.Delete(I); 
end;

Kein sonderliches Meisterwerk, aber doch oft gesucht.

......

P.S. Danke an jbg für den Hinweis auf den Fehler (Lines <--> Strings)