Ich möchte erreichen, dass wenn man auf einen Button drückt, in einer ListBox automatisch zufällige Zahlen reingeschrieben werden und diese ListBox nach doppelten Zahlen/Items sucht und mit einer anderen Zahl, welche noch nicht in der ListBox steht und sich im angegebenen Bereich befindet, ersetzt wird. Mit diesem Code kommt jedoch immer nur die Fehlermeldung "Listenindex überschreitet das Maximum (-1)". Ich hoffe ihr könnt mir helfen.
Danke im voraus.
Shobu
Delphi-Quellcode:
var i : Integer;
begin
Randomize;
for i := 0 to 9 do
Listbox1.Items.Add(IntToStr(Random(100)+1));
repeat
for i := ListBox1.Items.Count-1 downto 0 do
if ListBox1.Items.IndexOf(ListBox1.Items[i]) <> i then
ListBox1.Items.Delete(i);
Listbox1.Items.Add(IntToStr(Random(100)+1));
until not ListBox1.Items.IndexOf(ListBox1.Items[i]) <>i
end;