Einzelnen Beitrag anzeigen

GHorn

Registriert seit: 24. Mär 2009
Ort: NRW
124 Beiträge
 
#14

AW: Listenindex überschreitet Maximum(1)

  Alt 17. Sep 2012, 11:31
Zitat:
Ich habe das Problem gelöst, danke an alle die geholfen haben (:
Wäre nett, wenn Du andere an der Lösung teilhaben lässt

Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to Checklistbox1.Items.Count-1 do
    begin
      if Checklistbox1.Checked[i] then
        fa:=TstringList.Create;
      fa.Add(Checklistbox1.Items[i])
    end;
Wenn Du Deinen Text vernünftig einrücken würdest, könntest Du sehen, dass da das schließende "end;" fehlt. Außerdem erstellst Du in der For-Schleife jedesmal eine neue Stringliste. Ist das so gewollt? Wenn Checklistbox1.Checked[0] False ist, geht Dein f.Add(...) auf die Bretter
  Mit Zitat antworten Zitat