|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Roulette
8. Apr 2013, 18:15
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
const
C_NUM: Array[0..4] of integer =(1,3,9,12,17);
begin
Caption := IntToStr(C_NUM[Random(5)]);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Randomize;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|