Listenindex überschreitet Maximum(1)

[GHorn]

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