Stringliste zu Textdatei hinzufügen

bigknaller · Beiträge: 39

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

Ehemaliges Mitglied Erhaltene Danke: 1

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

bigknaller · Beiträge: 39

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.

Ehemaliges Mitglied Erhaltene Danke: 1

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.

markieren

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;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme