checkboxlist liest alle Subitems aus

[LuX2k]

HI

folgendes Problem, ich hab ne Checklistbox mit mehrere Spalten. Wenn ich 1 Checkbox anklicke und dann meine procedure ausführe, liest er mir zwar die Caption von dem Item aus, aber alle Subitems in der Liste.
Ich hab zwar schon ordentlich die Suche missbraucht, aber finde keine Lösung dafür :-/

Delphi-Quellcode:

 for i:=0 to dlfilelist.Items.Count-1 do begin
   if dlfilelist.Items.Item[i].Checked = true then
      form2.ws.Lines.Add(fetttags.Text+dlfilelist.Items[i].Caption+fetttage.Text);
        form2.ws.Lines.Add(wstags.Text+dlfilelist.Items[i].SubItems[1]+wstage.Text);
 end;
form2.Show;
end;

wäre dankbar, wenn mir jemand einen Tip geben könnte, wie ich das Problem lösen könnte

Machs Gut

LuX2k

[SirThornberry]

ich hab das gefühl das du einfach ein Begin-End vergessen hast. Zumindest lässt deine Einrückung darauf schließen. So müsste die Einrückung eigentlich aussehen

Delphi-Quellcode:

  for i:=0 to dlfilelist.Items.Count-1 do begin 
     if dlfilelist.Items.Item[i].Checked = true then 
        form2.ws.Lines.Add(fetttags.Text+dlfilelist.Items[i].Caption+fetttage.Text); 
     form2.ws.Lines.Add(wstags.Text+dlfilelist.Items[i].SubItems[1]+wstage.Text); 
  end; 
  form2.Show; 
end;

[LuX2k]

nee, ich habs nur schlampig formatiert :oops:

[ErazerZ]

Zitat:

Zitat von LuX2k

HI

folgendes Problem, ich hab ne Checklistbox mit mehrere Spalten. Wenn ich 1 Checkbox anklicke und dann meine procedure ausführe, liest er mir zwar die Caption von dem Item aus, aber alle Subitems in der Liste.
Ich hab zwar schon ordentlich die Suche missbraucht, aber finde keine Lösung dafür :-/

Delphi-Quellcode:

 for i:=0 to dlfilelist.Items.Count-1 do begin
   if dlfilelist.Items.Item[i].Checked = true then
      form2.ws.Lines.Add(fetttags.Text+dlfilelist.Items[i].Caption+fetttage.Text);
        form2.ws.Lines.Add(wstags.Text+dlfilelist.Items[i].SubItems[1]+wstage.Text);
 end;
form2.Show;
end;

wäre dankbar, wenn mir jemand einen Tip geben könnte, wie ich das Problem lösen könnte

Machs Gut

LuX2k

ich glaub das is dein problem

Delphi-Quellcode:

 for i:=0 to dlfilelist.Items.Count-1 do begin
   if dlfilelist.Items.Item[i].Checked = true then
   BEGIN
      form2.ws.Lines.Add(fetttags.Text+dlfilelist.Items[i].Caption+fetttage.Text);
      form2.ws.Lines.Add(wstags.Text+dlfilelist.Items[i].SubItems[1]+wstage.Text);
   END;
 end;
form2.Show;
end;

dann fügt der nur subitem ein wenn das auch gecheckt ist und nicht die ganze zeit ..

[LuX2k]

@ErazerZ

dankeschön, hab das von SirThornberry falsch verstanden. :coder2:


Ich danke euch beiden :dance: