Upravu si, ovde postoji jos jedan bug. Probaj da uradis ovo, pa javi rezultate tastiranja:
Code:
If StrToInt (Trojka [2] + Trojka[3]) <= 5 Then
Temp := Temp + Prilozi [x, -1] + Prilozi [x, StrToInt (Trojka[2] + Trojka[3])]
Else
Temp := Temp + Prilozi [x, -1] + Prilozi [x, 5];
zameni sa
Code:
If (StrToInt (Trojka [2] + Trojka[3]) <= 5) Or (StrToInt (Trojka [2] + Trojka[3]) > 20) Then
Begin
If StrToInt (Trojka[3]) <= 5 Then
Temp := Temp + Prilozi [x, -1] + Prilozi [x, StrToInt (Trojka[3])]
Else
Temp := Temp + Prilozi [x, -1] + Prilozi [x, 5];
End
Else
Temp := Temp + Prilozi [x, -1] + Prilozi [x, 5];
Nadam se da je ovo zadnji bug :)