ListBox Problem

**Shobu**

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

zusammenfalten · markieren

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;

ListBox Problem

ListBox Problem

Forumregeln