Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Hansa**

hier kriege ich immer unterschiedliche Zahlen, Maximal-Wert 100 !

Code:

			procedure TForm1.Label1Click(Sender: TObject);

begin

  randomize;

  Label1.Caption := IntToStr (random (100));

end;

Gruß
Hansa

Hansa Registriert seit: 9. Jun 2002 Ort: Saarland 7.554 Beiträge Delphi 8 Professional	#6 10. Jan 2003, 20:09 hier kriege ich immer unterschiedliche Zahlen, Maximal-Wert 100 ! markieren Code: procedure TForm1.Label1Click(Sender: TObject); begin randomize; Label1.Caption := IntToStr (random (100)); end; Gruß Hansa
	Zitat