Hi ich moechte gerne meine Optionseingaben fuer ein Roulette-Spiel checken.
Das heisst, dass z.B. eine Kontohoehe Eingabe von -200 nicht akzeptiert wird.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
| begin
dlgOptions := TForm1.Create(self);
try
if dlgOptions.ShowModal = mrOK then
begin
player1.setname(dlgOptions.ed_name1.text);
player2.setname(dlgOptions.ed_name2.text);
croupier.setbets(strtoint(dlgOptions.ed_minbet.text),strtoint(dlgOptions.ed_maxbet.text));
croupier.setrounds(strtoint(dlgOptions.ed_rounds.text));
player1.start_account(strtoint(dlgOptions.ed_account.text));
player2.start_account(strtoint(dlgOptions.ed_account.text));
l_accpl1.caption := inttostr(player1.showaccount);
l_accpl2.caption := inttostr(player2.showaccount);
l_betpl1.caption := '0';
l_betpl2.caption := '0';
l_lastbetpl1.Caption := '0';
l_lastbetpl2.Caption := '0';
l_lastwinpl1.Caption := '0';
l_lastwinpl2.Caption := '0';
l_overwinpl1.Caption := '0';
l_overwinpl2.Caption := '0';
l_player1.Caption := player1.showname;
l_player2.Caption := player2.showname;
end;
finally
dlgOptions.Free;
end; |
Wenn jetzt einer -200 eingibt, so soll im Optionsframe auf nem vorher gemachten Label stehen dass die Eingabe zu klein ist und das Optionsfenster weiterhin im Vordergrund stehen.
mit properties koennte ich ja den check machen (Unitspieler), aber woher weiss dann Unitspiel, also die Spielflaeche mit dem oben gezeigten Code, dass etwas falsch war.
Wäre es moeglich mit Property zu checken, dann in dem Fall mrOk nicht mehr zu setzen, so dass das Fenster bleibt?
