Wie der Titel des Themas schon sagt hab ich ein Problem mit dem löschen eines bestimmten Beitrags in einer TListBox. In einer ListBox habe ich ein paar einträge. Diese einträge sind auch in einer .ini Datei hinterlegt. Wenn ich jetzt zum beispiel die Einträge: Eintrag1, Eintrag2 und Eintrag3 in der ListBox habe und dann Eintrag3 aus der ListBox und aus der .Ini datei entfernen will löscht der in der ListBox Eintrag1 und Eintrag3 aber in der .Ini datei nur Eintrag3
Hier ist der Abschnitt der fürs löschen verantwortlich ist:
Delphi-Quellcode:
begin
if Form2.ListBox1.Items.IndexOf(Edit1.Text) > -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;
Form11.Visible := False;
end
Else
begin
Showmessage('Datei wurde nicht gefunden');
Form11.Visible := False;
end;
end;
Kann mir jemand sagen wo der Fehler ist?