mehrere stringlists hintereinander anhängen

[cRayZo]

Zitat von Benedikt:

Nabend,

öhm, überseh ich was oder createst du slfinish überhaupt nicht?

MfG Benedikt

jo..^^ du hattest Recht..
also ich hab den Code jetzt wie folgt, aber er liest manche stringlists nur in das stringgrid ein, wenn er auch andere mit einliest.
Zum Beispiel:
wenn nur ckeckbox1 activiert ist zeigt er nur die überschrift an im stringgrid, nämlcih "Übersetzung", und "Vokabel" der inhalt erscheint nicht..
aber
wenn checkbox1 und checkbox2 gleichzeitig aktiviert sind, dann werden beide inhalte auch angezeigt. uswusw woran kann das liegen?

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;
sl5:=TStringList.Create;
sl6:=TStringList.Create;
slfinish:=TStringList.Create;



if checkbox1.Checked=True then
                begin
                        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\ungeuebt.txt');
                        try sl.LoadFromFile('c:\Vokabeltrainer\Vokabeln\ungeuebt.txt'); except end
                end
                else sl.Text:='';

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
                else sl2.Text:='';

if checkbox3.Checked=True then
                begin
                        AssignFile(F,'c:\Vokabeltrainer\Vokabeln\gelernt.txt');
                        try sl3.LoadFromFile('c:\Vokabeltrainer\Vokabeln\gelernt.txt'); except end
                end
                else sl3.Text:='';

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
                else sl4.Text:='';

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
                else sl5.Text:='';

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
        else sl6.Text:='';

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


Stringgrid1.RowCount:=slfinish.Count;
        Stringgrid1.Cells[1,0]:='Vokabel'     ;
        Stringgrid1.Cells[0,0]:='Übersetzung';
        for zeilennr:=0 to slfinish.Count-1 do
        begin
        splitstr(slfinish.Strings[zeilennr],'=',Vokabel, Loesung);
        Stringgrid1.Cells[1,zeilennr+1]:=Vokabel;
        Stringgrid1.Cells[0,zeilennr+1]:=Loesung;
        end;
Stringlistx:=slfinish;

end;