Lotto HILFE´!!!

[fiasko]

Hallo,

Zitat von school- delphi:

also wenn man das so versucht- klappts leider nicht--- unendlich viele zahlen in der listbox erscheinen dann.

Das glaub ich dir nicht Der Rechner hat nur endlichen Speicher

Ich meinte das eher so:

Delphi-Quellcode:

begin
  for i:= 1 to 6 do
  begin
    // Solange Zahlen testen bis wir ein neue noch nicht in der Listbox stehende in Y haben
    repeat
      Y:= random(49)+1;
    until ListBox1.Items.IndexOf(IntToStr(y))=-1;

    ListBox1.Items.Add(inttostr(y));
  end;
end;

[edit]
Verdammt, wieder Bummelletzter
[/edit]