Moin!
Delphi-Quellcode:
procedure TForm1.PB_Move_title_to_topClick(Sender: TObject);
var y: integer;
begin
if (Listbox1.SelCount = 1) and (Listbox1.ItemIndex >= 0) then begin
try
listbox1.Items.Move(Givemeselectedone,wishes);
Wishes := Wishes + 1;// inc(wishes);
LEDDisplay_wishes.Value := wishes;
except
Showmessage('error');
end;
end;
end;
Schon alleine bei diese Procedure: Kannst du dir immer 100%ig sicher sein, dass GiveMeSelectedOne und Wishes ordentliche Werte enthalten? Werden diese mit korrigiert, wenn du Elemente löscht?
MfG
Muetze1