mir geht es eigentlich nur um die Lösung für mein Problem mit Delphi.
Du hast bislang aber noch keinen
Sourcecode gezeigt sondern nur bezüglich randomize
herumtheoretisiert.
Delphi-Quellcode:
// liefert den Nettogewinn oder Verlust für eine Spielserie
function PlayRoulette(einsatz, maxeinsatz:Currency):Currency;
var
win : Boolean;
begin
Result := 0;
repeat
win := random(33) < 16;
if win then
begin
Result := Result + einsatz;
Exit;
end;
Result := Result - einsatz;
einsatz := einsatz * 2; // verdoppeln...
until win or (einsatz > maxeinsatz); // bis zum Gewinn oder bis das Limit überschritten ist
end;