Listbox - Seletierte Einträge

[Yheeky]

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