Thema: Delphi Chance errechnen

Einzelnen Beitrag anzeigen

Benutzerbild von gmarts
gmarts

Registriert seit: 4. Apr 2004
Ort: Templin
290 Beiträge
 
Delphi 6 Enterprise
 
#4

Re: Chance errechnen

  Alt 13. Dez 2004, 16:42
Hi,

Such mal nach Delphi-Referenz durchsuchenRandom


Z.B.

Delphi-Quellcode:
if Random(3)=1 then machebuttonrot; // 33,3 prozentige Wahrscheinlichkeit.
if Random(5)=1 then tuewas; //20 Prozentige Wahrscheinlichkeit.
//etc.


MfG Gunar


[Edit] Mal wieder zu langsam und wieder nicht so schön wie Alcaeus. :? [/Edit]
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Click;
end;
  Mit Zitat antworten Zitat