Mam następującą procedurę
[...][code]
zaraz := Random(5);
Label1.caption := IntToStr(Zaraz);
Ustaw(Teraz);
Teraz := Zaraz;[/code]
[...]
Na labelu powinien się wyświetlać przyszły parametr procedury ustaw
a wyświetla się aktualny
Mam następującą procedurę
[...][code]
zaraz := Random(5);
Label1.caption := IntToStr(Zaraz);
Ustaw(Teraz);
Teraz := Zaraz;[/code]
[...]
Na labelu powinien się wyświetlać przyszły parametr procedury ustaw
a wyświetla się aktualny
Niestety zbyt mało kodu podałeś aby móc rozważyć gdzie jest błąd. Jednak pierwsze co mi się nasuwa to to, że być może nie uruchamiasz generatora liczb losowych poleceniem:
[code]Randomize[/code]
procedure TForm1.FormCreate(Sender: TObject);
var
x:integer;
begin
Randomize;
x:=Random(5);
Label1.Caption:=IntToStr(x);
end;
end.
Jeśli podany kod jest zapętlony to problem może leżeć w odświeżaniu komponentu proponuję sprubować dodać tą linijkę na końcu podanego kodu:
application.procesmessages;