Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi zwei Stringlisten in eine Textdatei laden (https://www.delphipraxis.net/77077-zwei-stringlisten-eine-textdatei-laden.html)

Matthias123 14. Sep 2006 13:53


zwei Stringlisten in eine Textdatei laden
 
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 14. Sep 2006 13:59

Re: zwei Stringlisten in eine Textdatei laden
 
Hi,

es gibt da mehrere Möglichkeiten, z.B. Hier im Forum suchenTextFile o.ä.
Oder Du verwendest ne diritte StringList:
Delphi-Quellcode:
SL1.LoadFromFile(FileName);
SL1.AddStrings(SL2);
SL1.SaveToFile(FileName);
Gruß
Stephan :dance:

marabu 14. Sep 2006 14:26

Re: zwei Stringlisten in eine Textdatei laden
 
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 14. Sep 2006 15:05

Re: zwei Stringlisten in eine Textdatei laden
 
Danke,

habs mit Steve´s Vorschlag erstellt und es hat geklappt :thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz