RadioGroup w grze jackpot

1

Witam,
mam problem z napisaniem gry jackpot w Delphi. Mój kod działa ale nie moge wybrac poziomu trudnosci, tzn w radiogroup mam poziomy trudności jednak nie wiem jak napisac zeby program je rozróżniał.
Tyle udało mi się napisać:

var
  zycia : integer;
procedure TForm1.Button1Click(Sender: TObject);
var
  los, liczba, maxLos : integer;
begin
  case Poziomy.ItemIndex of
    0 : maxLos := 15;   //maksymalnie wylosowana liczba z poziomu
    1 : maxLos := 30;
    2 : maxLos := 50;
    3 : maxLos := 100;
  end;
  begin
    if zycia <= 0 then
    begin
      showMessage('Przegrales, masz 0 zyc');
      Application.Terminate;
    end;
    begin
      liczba := StrToInt(Edit1.Text);
      zycia := zycia - 1;         //zycia gracza
      los := Poziomy.ItemIndex;   //wylosowana liczba
      if ((liczba < 0) and (liczba > maxLos)) then
        showmessage('wybierz liczbe z przedzialu');
      if (liczba = los) then
        showMessage('wygrales')
      else if (liczba<los) then
        showmessage('wpisz wieksza liczbe')
      else if (liczba>los) then
        showmessage('wpisz mniejsza liczbe');
end;
  Label1.Caption := ('Pozostalo zyc ' + IntToStr(zycia));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  zycia := 10;
end;

Przepraszam za słaby temat postu, z góry dziekuję za odpowiedź.

1

Czy trudno przeczytać jakąś podstawową dokumentację o RadioButton w Googlach? Ja takich problemów nie miałem gdy uczyłem się programować.

0

Ty nazwałeś zmienną Los, a nic nie losujesz. Do inicjowania losowania służy proceudra Randomize, a do losowanie Random. Pogooluj na ich temat i poczytaj, to wszystko będziesz wiedział. A pytanie na forum, nawet w dziale Newbie, traktuj jako ostateczność.

1 użytkowników online, w tym zalogowanych: 0, gości: 1