Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**fiasko**

oder schau einfach nach, ob die Zahl schon in der ListBox steht, also sowas der Art:

Delphi-Quellcode:

			repeat

  Y:=random(49)+1;

until ListBox1.Items.IndexOf(IntToStr(y))=-1;

(ungetestet, da grad kein Delphi zu Hand)

fiasko Registriert seit: 10. Dez 2002 Ort: Dresden 506 Beiträge	#16 Re: Lotto HILFE´!!! 9. Dez 2004, 11:04 oder schau einfach nach, ob die Zahl schon in der ListBox steht, also sowas der Art: markieren Delphi-Quellcode: repeat Y:=random(49)+1; until ListBox1.Items.IndexOf(IntToStr(y))=-1; (ungetestet, da grad kein Delphi zu Hand) Thomas Liske Posts comes with ABSOLUTELY NO WARRANTY, to the extent permitted by applicable law.
	Zitat