Doch, also ich habe ne Möglichkeit, mit der das Löschen auch "vorwärts" funktioniert:
Code:
...
procedure DeleteListBox;
...
procedure TForm1.DeleteListBox;
var I : Byte;
Exit : Boolean;
begin
Exit := False;
// Angenommen die ListBox enthält Einträge -> ansonsten...
// -> if ListBox1.Items.Count <> 0 then
for I := 0 to ListBox1.Items.Count-1 do
begin
if Exit = False then
begin
if ListBox1.Selected[i] = True then
begin
ListBox1.Items.Delete(I);
DeleteListBox;
Exit := True;
end;
end;
end;
end;
// Beim "Löschen-Button" die Prozedure aufrufen
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteListBox;
end;
Funktioniert bei mir einwandfrei...
Gruß Yheeky