Entwickler-Ecke :: Thema anzeigen - Stringliste zu Textdatei hinzufügen

bigknaller - Fr 15.11.02 17:26
Titel: Stringliste zu Textdatei hinzufügen

Also, ich habe folgendes Problem. Ich habe eine Stringliste, und die soll zu einer Textdatei hinzugefügt (!) werden. Mit meinem bisherigen Code wird die Textdatei nur ersetzt. liste.SaveToFile(ExtractFilePath(ParamStr(0))+'liste.txt');
liste steht dabei für die Stringliste und liste.txt für die Textdatei. Das davor sollte euch bekannt sein ;)
Danke schon mal vorher...

Markus

Delete - Fr 15.11.02 17:39

Lad die Textatei voher in eine 2. Stringliste und dann fügst du die 1. Stringliste in einer for-Schleife zeilenweise hinzu.

bigknaller - Fr 15.11.02 18:09

Danke erstmal. Wie du sicher schon bemerk hast, bin ich ein Anfänger in Sachen Delphi. Deshalb, könntest du mir wenigstens ein Beispiel geben. Den Quelltext kann ich mir dann selbst anpassen. DANKE.

Delete - Fr 15.11.02 18:16

ich habe das ganze mal an Hand eines Memos demonstriert damit man was sieht. das ganze kann man natürlich auch mit zwei Stringlisten machen.

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.FormCreate(Sender: TObject);
var
  sl: TStringlist;
  i : Integer;
begin
  Memo1.Lines.LoadFromFile('c:\TDSLCheck.txt');
  sl := TStringlist.Create;
  try
    sl.LoadFromFile('c:\TDSLCheck.txt');
    for i := 0 to sl.Count-1 do
      memo1.Lines.Add(sl.Strings[i]);
  finally
    sl.Free;
  end;
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!