zwei Stringlisten in eine Textdatei laden

[Matthias123]

hallo,

wie kann ich eine 2. Stringliste bequem in einer Textdatei abspeichern, ohne dass die vorherigen Daten überschieben werden?

Die erste Stringliste lade ich mit folgendem Code in die Textdatei:
"StringList1.SaveToFile(SaveDialog1.filename); "

Nun möcht ich noch eine weitere Stringliste in derselben Texdatei abspeichern

[Steve]

Hi,

es gibt da mehrere Möglichkeiten, z.B. TextFile o.ä.
Oder Du verwendest ne diritte StringList:

Delphi-Quellcode:

SL1.LoadFromFile(FileName);
SL1.AddStrings(SL2);
SL1.SaveToFile(FileName);

Gruß
Stephan

[marabu]

Ist zwar völlig abwegig - aber so geht es auch:

Delphi-Quellcode:

procedure SaveStrings(sa: array of TStrings; fn: TFileName);
var
  i: Integer;
  fs: TFileStream;
begin
  fs := TFileStream.Create(fn, fmCreate or fmShareDenyWrite);
  try
    for i := Low(sa) to High(sa) do
      sa[i].SaveToStream(fs);
  finally
    fs.Free;
  end;
end;

procedure TDemoForm.SaveButtonClick(Sender: TObject);
begin
  // ...
  with SaveDialog do
    if Execute then
      SaveStrings([Memo1.Lines, Memo2.Lines], FileName);
end;

Grüße vom marabu

[Matthias123]

Danke,

habs mit Steve´s Vorschlag erstellt und es hat geklappt