Thema: Delphi Lotto HILFE´!!!

Einzelnen Beitrag anzeigen

school- delphi

Registriert seit: 9. Dez 2004
13 Beiträge
 
#18

Re: Lotto HILFE´!!!

  Alt 9. Dez 2004, 11:08
hallo,

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

begin
for i:= 1 to 6 DO
repeat
Y:= random(49)+1;
ListBox1.Items.Add(inttostr(y));
until not ListBox1.Items.IndexOf(IntToStr(y))=-1;
end;

danke!
grüße
lisa
  Mit Zitat antworten Zitat