einer gefüllten Stringliste den inhalt einer Datei anhängen

[Susanne]

hallo,

ich habe eine Stringliste liste1 und die habe ich auch schon zum Teil gefüllt. Was ich nun gerne machen würde ist, den Inhalt einer Datei auch noch in die Stringliste zu füllen. Aber wie mache ich das, denn mit LoadFromFile ist das vorher gefüllt weg.

Wer hat vorschläge?

[Hansa]

Ich nehme an, es ist eine Textdatei, dann mußt du sie öffnen und zeilenweise an die Stringliste anhängen. Also mit reset, readln usw.

[scp]

Oder du arbeitest mit einer zweiten Stringliste:

Delphi-Quellcode:

procedure AppendFromFile(Dest : TStringList; Filename : String);
var
  tempsl : TStringList;
begin
  tempsl := TStringList.Create;
  try
    tempsl.LoadFromFile(tempsl);
    Dest.AddStrings(tempsl);
  finally
    tempsl.Free;
  end;
end;

[glkgereon]

ma ne frage, bin grad etwas verwirrt:

du sagst
procedure AppendFromFile(Dest : TStringList; Filename : String); aber muss es nicht
procedure AppendFromFile(var Dest : TStringList; Filename : String); heißen?

denn dest tust du ja auch zurückgeben..
oder nicht?

[scp]

Nein, man könnte sogar const nehmen. TStringList ist ja ein Object, deshalb wird der Funktion ja nur eine Referenz (ähnlich wie Zeiger) auf diese übergeben.

NACHTRAG:
Dest wurde ja vorher schon erstellt, es werden nur Daten hinzugefügt (angehängt, Appen eben).

[glkgereon]

ahso...ok