procedure TForm1.Button1Click(Sender: TObject); begin if losowanie1.ItemIndex = 0 then begin if liczba.value < 12 then liczba.Value:= liczba.Value + 3 else if liczba.value >= 12 then liczba.Value:= liczba.Value + 2 else if liczba.value >= 20 then liczba.Value:= liczba.Value + 1; end; end; end;
dzialaja warunki do 2 gdy dochodzi w spinedit do 20 to zamiast dodawac 1 dodaje mi 2, korzystajac z debugera wiem ze chodzi o linijke
if liczba.value >= 20 thentylko ze wlasnie probowalem na rozne sposoby dodajac else w roznych miejscach i zawsze nie zostaje spelniony warunek 3 i nie wiem jak zapisac to poprawnie zeby 3 warunki zostaly spelnione prosze o pomoc
juz sobie poradzilem