Leerzeilen in Tstringlist

[DeddyH]

Ich hab mal was stumpf heruntergetippt, schau mal, ob das so funktioniert.

Delphi-Quellcode:

procedure TForm1.SpeichernClick(Sender: TObject);
var sResult :Tstringlist;
    

    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]);
    end;
    
begin
  sResult := TStringlist.Create;
  try
    StripLines('Montag', Memo1.Lines);
    StripLines('Dienstag', Memo2.Lines);
    StripLines('Mittwoch', Memo3.Lines);
    StripLines('Donnerstag', Memo4.Lines);
    StripLines('Freitag', Memo5.Lines);
    StripLines('Samstag', Memo6.Lines);
    StripLines('Sonntag', Memo7.Lines);
    sResult.SaveToFile(Textdatei);
  finally
    sResult.Free;
  end;
end;