mehrere stringlists hintereinander anhängen

[cRayZo]

Zitat von mkinzler:

Dann ist die Methode wohl erst mit einer späteren Delphiversion gekommen;
slfinish.CommaText:=sl1.CommaText+sl2.CommaText+sl3.CommaText+sl4.CommaText;

also so habe ich das jetzt mal verscuht..
hier mein Code:

Delphi-Quellcode:

procedure Tdrucken.Button3Click(Sender: TObject);
var
sl, sl2, sl3, sl4, sl5, sl6, slfinish: TStringList;
F: textfile;
zeilennr: integer;
vokabel,Loesung:string;
  RetVal: Integer;
begin
sl:=TStringList.Create;
sl2:=TStringList.Create;
sl3:=TStringList.Create;
sl4:=TStringList.Create;
sl6:=TStringList.Create;
sl6:=TStringList.Create;
Stringlistx:=sl;



if checkbox1.Checked=True then
        begin
        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\ungeuebt.txt');
        try sl.LoadFromFile('c:\Vokabeltrainer\Vokabeln\ungeuebt.txt'); except end;
        end;
if checkbox2.Checked=True then
        begin
        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\nicht gekonnt.txt');
        try sl2.LoadFromFile('c:\Vokabeltrainer\Vokabeln\nicht gekonnt.txt'); except end;
        end;
if checkbox3.Checked=True then
        begin
        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\gelernt.txt');
        try sl3.LoadFromFile('c:\Vokabeltrainer\Vokabeln\gelernt.txt'); except end;
        end;
if checkbox4.Checked=True then
        begin
        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\gut gelernt.txt');
        try sl4.LoadFromFile('c:\Vokabeltrainer\Vokabeln\gut gelernt.txt'); except end;
        end;
if checkbox5.Checked=True then
        begin
        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\sehr gut gelernt.txt');
        try sl5.LoadFromFile('c:\Vokabeltrainer\Vokabeln\sehr gut gelernt.txt'); except end;
        end;
if checkbox6.Checked=True then
        begin
        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\gut gelernt.txt');
        try sl6.LoadFromFile('c:\Vokabeltrainer\Vokabeln\gut gelernt.txt'); except end;
        end;

slfinish.CommaText:=sl.CommaText+sl2.CommaText+sl3.CommaText+sl4.CommaText+sl5.CommaText+sl6.CommaText;

es startet ohne Probleme, aber wenn ich bei den Checkboxes etwas anklicke und dann auf Button3 gehe, kommt wie gesagt die Zugriffsverletzung
kann es sein, dass die fehlermeldung kommt, weil sl.Commatext hinzugefügt wird, der nicht eistiert?