Piszę program symulujący wbijanie itemów na kolejne poziomy (+1 +2 +3). Pomysł zaczerpnąłem z gier MMORGP… Jest tylko taki problem, że umieszczę w swoim kodzie instrukcję:
procedure TForm3.Button2Click(Sender: TObject);
var
c : integer;
d : integer;
begin
c := 11;
d:=random(c);
if d < 1 then
begin
Label2.Caption:= 'Wbiles item na +3!';
Button3.Enabled:= True;
end
else
begin
Label2.Caption:= 'Nie wbiles itemu';
Button3.Enabled:= False;
end;
end;
A zawsze pierwsze kliknięcie po uruchomieniu programu sprawia, że wbiłem item na +3 mimo, że mam na to 10% szansy? A prawie każde następne kliknięcie, sprawia, że nie wbiłem itemu, czyli dopiero po 1 naciśnięciu na przycisk, wszystko działa tak jak powinno. Powie mi ktoś czemu dopiero wtedy? Bo tak to program nie ma żadnego sensu…
Sorki za mały offtopic, ale nie chcę nowego tematu tworzyć. Czy po Turbo Delphi Explorer wyszło jakieś nowsze DARMOWE środowisko Delphi? Wiem że najnowsze to 2009, no ale niestety nie ma żadnej wersji za free