Hallo liebe Community,
ich habe eine warscheinlich ganz simple Frage aber ich bin noch sehr unerfahren mit Delphi deswegen frage ich euch
Meine Frage: Wie kann ich aus einer ListBox das Oberste Item auswählen und löschen? Mit meinem Code nimmt er nur das unterste.
Code:
procedure TForm1.Button6Click(Sender: TObject);
var
ID :integer;
FoundSelected:Boolean;
begin
FoundSelected :=false;
for ID:= ListBox1.Items.Count - 1 downto - 0 do
begin
if ListBox1.Selected[ID] then
begin
FoundSelected := true;
ListBox1.Items.Delete(ID);
end;
end;
if not FoundSelected then ListBox1.Items.Delete(ListBox1.Items.Count-1);
end;
Ich danke schonmal im voraus
