Problem mit entfernen von ListBox einträgen

[marabu]

Hi,

weder noch - er löscht jeden mit geradem Index. Besser so:

Delphi-Quellcode:

var
  iDelete: Integer;
begin
  // ...
  iDelete := Form2.ListBox1.Items.IndexOf(Edit1.Text);
  if iDelete > -1 then
  begin
    try
      Ini := TIniFile.Create(Result + 'Test.ini');
      ini.DeleteKey('Themen', Edit1.Text);
    finally
      Ini.Free;
    end;
    DeleteFileToRecycleBin(Result + Edit1.Text + '.txt');

{
    for i:=0 to Form2.ListBox1.Items.Count-1 do
    begin
      Form2.ListBox1.Items[i]:=Edit1.Text;
      Form2.ListBox1.Items.Delete(i);
    end;
}
    Form2.ListBox1.Items.Delete(iDelete);

    Form11.Visible := False;
  end Else
  begin
    Showmessage('Datei wurde nicht gefunden');
    Form11.Visible := False;
  end;
end;

Grüße vom marabu