Leerzeilen in Tstringlist

[DeddyH]

Das geht auch ohne break

Delphi-Quellcode:

procedure StripLines(const Titel: string; const sLines: TStrings);
    const sIgnore = 'Serien Termine'
    var i : integer;
    begin
      sResult.Add(Titel);
      i := 0;
      while (i < sLines.Count) and (sLines[i] <> '') and (sLines[i] <> sIgnore) do
        begin
          sResult.Add(sLines[i]);
          inc(i);
        end;
    end;