Leerzeilen in Tstringlist

[gangs-taas]

hey,
ich habe eine Problem.
Ich habe mherere Memofelder und möchte diese in einer Textdatei speichern.
Nun sollen aber keine Leerzeilen in die datei und wenn in dem memoFelder 'Serien Termine' steht sollen alle Zeilen ab dieser Zeile auch NICHT gespeichert werden.

Ich dachte ich mach das so :


aber es sind sowohl leerzeilen in meiner textdatei und die Sachen die in den Memofelder mal drin standen sind hinterher irg. in der Textdatei nicht drin...

wordrann könnte das liegen ?!

hoffe ihr könnt mir (schon wieder ) Helfen

lg

Delphi-Quellcode:

procedure TForm1.SpeichernClick(Sender: TObject);
var
MoString, DiSTring, MiString, DoString, FrString, SaString, SoString :Tstringlist;
PrüfString : String;
i : integeR ;
ZeilenZähler : Integer ;
begin
ZeilenZähler := 0 ;
  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');
  For i := 0 to (Memo1.Lines.Count) do
  begin
    Prüfstring := Memo1.Lines[ZeilenZähler];
    if(Prüfstring = #13#10) or (Prüfstring ='Serien Termine') then
    begin
      break;
      ZeilenZähler := 0;
    end
    Else
      MoString.Add(Memo1.Lines[ZeilenZähler])  ;
      Inc(ZeilenZähler);
  end;
  For i := 0 to (Memo2.Lines.Count) do
  begin
    Prüfstring := Memo2.Lines[ZeilenZähler];
    if(Prüfstring = #13#10) or (Prüfstring ='Serien Termine') then
    begin
      break;
      ZeilenZähler := 0;
    end
    Else
      DiString.Add(Memo2.Lines[ZeilenZähler])  ;
      Inc(ZeilenZähler);
  end;
  For i := 0 to (Memo3.Lines.Count) do
  begin
    Prüfstring := Memo3.Lines[ZeilenZähler];
    if(Prüfstring = #13#10) or (Prüfstring ='Serien Termine') then
    begin
      break;
      ZeilenZähler := 0;
    end
    Else
      MiString.Add(Memo3.Lines[ZeilenZähler])  ;
      Inc(ZeilenZähler);
  end;
  For i := 0 to (Memo4.Lines.Count) do
  begin
    Prüfstring := Memo4.Lines[ZeilenZähler];
    if(Prüfstring = #13#10) or (Prüfstring ='Serien Termine') then
    begin
      break;
      ZeilenZähler := 0;
    end
    Else
      DoString.Add(Memo4.Lines[ZeilenZähler])  ;
      Inc(ZeilenZähler);
  end;
  For i := 0 to (Memo5.Lines.Count) do
  begin
    Prüfstring := Memo5.Lines[ZeilenZähler];
    if(Prüfstring = #13#10) or (Prüfstring ='Serien Termine') then
    begin
      break;
      ZeilenZähler := 0;
    end
    Else
      FrString.Add(Memo5.Lines[ZeilenZähler])  ;
      Inc(ZeilenZähler);
  end;
  For i := 0 to (Memo6.Lines.Count) do
  begin
    Prüfstring := Memo6.Lines[ZeilenZähler];
    if(Prüfstring = #13#10) or (Prüfstring ='Serien Termine') then
    begin
      break;
      ZeilenZähler := 0;
    end
    Else
      SaString.Add(Memo6.Lines[ZeilenZähler])  ;
      Inc(ZeilenZähler);
  end;
  For i := 0 to (Memo7.Lines.Count) do
  begin
    Prüfstring := Memo7.Lines[ZeilenZähler];
    if(Prüfstring = #13#10) or (Prüfstring ='Serien Termine') then
    begin
      break;
      ZeilenZähler := 0;
    end
    Else
      SoString.Add(Memo7.Lines[ZeilenZähler])  ;
      Inc(ZeilenZähler);
  end;
  Zwischenspeicher.Text :=  MoString.Text;
  Zwischenspeicher.Add(DiString.Text);
  Zwischenspeicher.Add(MiString.text);
  Zwischenspeicher.Add(DoString.Text);
  Zwischenspeicher.Add(FrString.Text);
  Zwischenspeicher.Add(SaString.Text);
  Zwischenspeicher.Add(SoString.Text);
  Zwischenspeicher.SaveToFile(Textdatei);
end;

ps. ich hab mir sogar mühe gegeben es zu formatieren ^^