ich hab das jetzt so geändert wie ich dachte, dass du es meisnt.
Trotzdem hatte ich noch leerzeilen in der Textdatei drin.
Also habe ich gedacht ich baue noch eine Prüf-For-Schleife ein ...
aber selbst das bringt nichts ....
im mom siehst so aus :
(und es sind immernoch leerzeilen in der textdatei *grummel*)
Delphi-Quellcode:
procedure TForm1.SpeichernClick(Sender: TObject);
var
MoString, DiSTring, MiString, DoString, FrString, SaString, SoString :Tstringlist;
PrüfString : String;
i : integeR ;
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');
For i := 0 to (Memo1.Lines.Count-1) do
begin
Prüfstring := Memo1.Lines[i];
if(Prüfstring = '') or (Prüfstring ='Serien Termine') then
continue
Else
MoString.Add(Memo1.Lines[i]) ;
end;
For i := 0 to (Memo2.Lines.Count-1) do
begin
Prüfstring := Memo2.Lines[i];
if(Prüfstring = '') or (Prüfstring ='Serien Termine') then
continue
Else
DiString.Add(Memo2.Lines[i]) ;
end;
For i := 0 to (Memo3.Lines.Count-1) do
begin
Prüfstring := Memo3.Lines[i];
if(Prüfstring = '') or (Prüfstring ='Serien Termine') then
continue
Else
MiString.Add(Memo3.Lines[i]) ;
end;
For i := 0 to (Memo4.Lines.Count-1) do
begin
Prüfstring := Memo4.Lines[i];
if(Prüfstring = '') or (Prüfstring ='Serien Termine') then
continue
Else
DoString.Add(Memo4.Lines[i]) ;
end;
For i := 0 to (Memo5.Lines.Count-1) do
begin
Prüfstring := Memo5.Lines[i];
if(Prüfstring = '') or (Prüfstring ='Serien Termine') then
continue
Else
FrString.Add(Memo5.Lines[i]) ;
end;
For i := 0 to (Memo6.Lines.Count-1) do
begin
Prüfstring := Memo6.Lines[i];
if(Prüfstring = '') or (Prüfstring ='Serien Termine') then
continue
Else
SaString.Add(Memo6.Lines[i]) ;
end;
For i := 0 to (Memo7.Lines.Count-1) do
begin
Prüfstring := Memo7.Lines[i];
if(Prüfstring = '') or (Prüfstring ='Serien Termine') then
continue
Else
SoString.Add(Memo7.Lines[i]) ;
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);
For i:= 0 To Zwischenspeicher.Count -1 do // das hier
begin // ist
If(Zwischenspeicher[i] = '') Then // jetzt
Zwischenspeicher.Delete(i); // neu
end;
Zwischenspeicher.SaveToFile(Textdatei);
end;