Ich habe sie im Editfenster geändert aber es tut sich nichts.
Vielleicht findet jemand meinen Fehler. Wir programmieren seit 1 Jahr in der Schule, also bitte nicht an der Fachtermini wundern.
Edit1 zeigt den Einsatz, Edit2 das aktuelle Konto und Edit3 die zufällige Zahl.
Code:
IF Edit1.text= '' then showmessage ('Einsatz ungültig')else begin
x:= strtoint(Edit1.text);
randomize;
Edit3.text:=IntToStr(random(37));
If Edit3.text=IntTostr(1 or 3 or 5 or 7 or 9 or 12 or 14 or
16 or 18 or 19 or 21 or 23 or 25 or 27 or 30 or 32 or 34 or 36) then
Edit2.Text:=inttostr(x+x)else
Edit2.text:=inttostr(0);
If Edit3.text=IntTostr(0) then
Edit2.Text:=inttostr(x div 2);
end;
end;