Senden an

[sui]

Moin,

ich befasse mich grad mit den CheckListboxen. Und da ich eben noch einen
Code zum auslesen des Pfades der SpecialFolder gefunden hab, dachte ich,
ich mach ein Progrämmchen, um das Senden an... Menü zu modifizieren.

Mein Hauptproblem ist jetzt, wie ich die markierten Einträge löschen kann.

Habs hiermit versucht: Checklistbox1.Items.Delete(i);
Bekomme dann aber die Meldung: Listenindex überschreitet das Maximum(6):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s, path: string;
    i: integer;
    stl: tstringlist;

begin
path := (GetSpecialFolder(Handle, CSIDL_Sendto) + '\*.*'#0);
s := path;
CheckListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
Checklistbox1.ItemIndex:=0;
stl := tstringlist.Create;
try
for i := 0 to Checklistbox1.items.Count - 1 do
begin
stl.Add(CheckListbox1.items.strings[Checklistbox1.itemindex]);
Checklistbox1.itemindex := Checklistbox1.itemindex+1;
end;
Checklistbox1.items.CommaText := stl.commatext;

label3.caption := inttostr(i) + ' Einträge vorhanden';
label1.Caption := s;
label2.caption := path;
finally
stl.free;
end;
 end;

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to Checklistbox1.Items.Count-1 do
  begin
  if Checklistbox1.checked[i] then
  begin
  Checklistbox1.Items.Delete(i);
end;
end;
end;