Leerzeilen in Tstringlist

[gangs-taas]

ja das mit dne umlauten nimmst er
aber ich kanns ändern wenn es euch stört...


wenn ich das alles so mach :
bekommt meine Textdatei den Text :
Sonntag
Sonntag
Sonntag
Sonntag
Sonntag
Sonntag
Sonntag



aber warum ?

Delphi-Quellcode:

function TForm1.SpeicherHilfe(Var Memo: TMemo ; StringListe : TStringList): TStringList;
var
I : Integer ;
Pruefstring : String;
begin
For i := 0 to Memo.Lines.Count-1 do
  begin
      Pruefstring := Memo1.Lines[i];
      if(Pruefstring <> '') and (Pruefstring <> 'Serien Termine') then
        StringListe.Add(Memo1.Lines[i])  ;
  end;
end;


procedure TForm1.SpeichernClick(Sender: TObject);
var
MoString, DiSTring, MiString, DoString, FrString, SaString, SoString :Tstringlist;
begin
  MoString := Tstringlist.Create;
  DiSTring := Tstringlist.Create;
  MiString := Tstringlist.Create;
  DoString := Tstringlist.Create;
  FrString := Tstringlist.Create;
  SaString := Tstringlist.Create;
  SoString := Tstringlist.Create;
  MoString.Add('Montag');
  DiString.Add('Dienstag');
  MiString.Add('Mittwoch');
  DoString.Add('Donnerstag');
  FrString.Add('Freitag');
  SaString.Add('Samstag');
  SoString.Add('Sonntag');
  MoString := SpeicherHilfe( Memo1, MoString);
  DiString := SpeicherHilfe( Memo2, DiString);
  MiString := SpeicherHilfe( Memo3, MiString);
  DoString := SpeicherHilfe( Memo4, DoString);
  FrString := SpeicherHilfe( Memo5, FrString);
  SaString := SpeicherHilfe( Memo6, SaString);
  SoString := SpeicherHilfe( Memo7, SoString);
  Zwischenspeicher.Text :=  MoString.Text;
  Zwischenspeicher.Add(trim(DiString.Text));
  Zwischenspeicher.Add(trim(MiString.Text));
  Zwischenspeicher.Add(trim(DoString.Text));
  Zwischenspeicher.Add(trim(FrString.Text));
  Zwischenspeicher.Add(trim(SaString.Text));
  Zwischenspeicher.Add(trim(SoString.Text));
  Zwischenspeicher.SaveToFile(Textdatei);
end;