Ein ganz heisser Tipp:
beim Roulette gibt es verschiedene Gewinnchancen (Zahl, rot/schwarz, pair/impair, mangue/passe, 1-3 Douzaines, ...)
Für jede dieser Gewinnchancen solltest du eine eigene Funktion schreiben:
Delphi-Quellcode:
function IstManque(zahl:integer):Boolean;
begin
if (zahl >= 1) and (zahl <= 18) then
result := True
else
result := False;
// Verdichtet kann man das auch so schreiben
Result := ((zahl >= 1) and (zahl <= 18));
end;
function IstPasse(zahl:integer):Boolean;
begin
if (zahl >= 19) and (zahl <= 36) then
result := True
else
result := False;
end;
function IstRot(zahl:integer):Boolean;
begin
// selbermachen
end;
Mit diesen kleinen netten Funktionen wird die Auswertung viel leichter!