uses Unit System
A função Random gera números aleatórios dentro de um intervalo especificado. ou seja, 0<=X< Intervalo.
Sintaxe da sua utilização:
Random(Valor);
Ex:
procedure TForm1.Button22Click(Sender: TObject);begin
label1.Caption:=IntToStr(Random(50)); //Retorna números aleatórios
end;
label1.Caption:=IntToStr(Random(50)); //Retorna números aleatórios
end;
boa dica mas se não executar o "randomize" o seu valor aleatório vai ser sempre em sequencia a cada vez que for iniciado o software
ResponderExcluirpode ser usar no evento OnCreate do form
procedure oncreate()
begin
randomize;
end;