Brauche Hilfe bei roulettespiel, (feld-inhalt x3 + Geldfeld)

[mkinzler]

Du könntest die Abfrage in ein Funktion/prozedur verlagern und diese mit den Grenzen aufrufen

Delphi-Quellcode:

Procedure Form.Pruefe( y, a, b: Integer; ausgabe: TEdit);
begin
  if (y > 12) and (y < 25) then
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(ausgabe.text))*3));
    ausgabe.text:='0';
  end else
  begin
    money.Text:=FloatToStr(StrToFloat(money.text)-(StrToFloat(ausgabe.text)));
    ausgabe.text:='0';
  end; 
end;
...
Pruefe( y, 12,25, second); 

Pruefe( y, 24, 27, third);