mehrere stringlists hintereinander anhängen

[ToFaceTeKilla]

Zitat von sx2008:

Auwa, das ist aber umständlich.
Du brauchst doch keine 6 Stringlisten, sondern nur 2.

Delphi-Quellcode:

// ungetestet
// diese Procedur hängt den Inhalt einer Datei an ein TStrings-Objekt an
procedure AppendFileToStrings(const filename:string; list:TStrings);
var
  tmp : TStringList;
begin
  if FileExists(filename) then
  begin
    tmp := TStringList.Create;
    tmp.LoadFromFile(filename);
    list.AppendStrings(tmp);
    tmp.Free;
  end;
end;

...
if checkbox3.Checked then  // nicht auf =True abfragen !
  // ein eleganter Einzeiler :-)
  AppendFileToStrings('c:\Vokabeltrainer\Vokabeln\gelernt.txt', slfinish); 
...

Elegant ist das sicher, nur nützt es ihm (und mir, steh nämlich grad vor dem gleichen Problem ) nix, weil es
list.AppendStrings(tmp); in D6 noch nicht gibt.

[DeddyH]

Aus der Delphi 5()-Hilfe:

Zitat:

Mit der Methode AddStrings wird eine Gruppe von String-Einträgen zu einer Liste hinzugefügt.

procedure AddStrings(Strings: TStrings); virtual; Beschreibung

Mit der Methode AddStrings lassen sich die String-Einträge eines anderen TStrings-Objekts zu einer String-Liste hinzufügen. Wenn beide TStrings-Objekte Strings mit zugeordneten Objekten unterstützen, werden mit den Strings auch die zugehörigen Objekt-Referenzen übertragen.

[ToFaceTeKilla]

Hm, ich sollte beim Arbeiten die Scheuklappen abnehmen oO
Danke Deddy