Leerzeilen in Tstringlist

[DeddyH]

Dann hab ich das falsch verstanden. OK, dann müsste das so gehen:

Delphi-Quellcode:

procedure StripLines(const Titel: string; const sLines: TStrings);
    const sIgnore = 'Serien Termine'
    var i : integer;
    begin
      sResult.Add(Titel);
      for i := 0 to sLines.Count - 1 do
        if (sLines[i] <> '') and (sLines[i] <> sIgnore) then
          sResult.Add(sLines[i])
        else
          break;
    end;