Em algumas situações precisamos gerar números randômicos. Em Delphi isso pode ser feito com o auxílio da função Random(). Esta função aceita um valor inteiro e retorna um número aleatório maior ou igual a 0 e menor que o valor fornecido. Assim, se quisermos obter um número randômico na faixa de 0 a 10, só precisamos fornecer o valor 11 para a função Random(). Note ainda a chamada à função Randomize(), usada para iniciar o gerador de números randômicos.

Veja um exemplo no qual geramos um número aleatório na faixa de 0 a 10:

procedure TForm1.Button1Click(Sender: TObject);
var
numero: integer;
begin
// vamos iniciar o gerador de números randômicos
Randomize;

// vamos gerar um número aleatório entre 0 e 10
numero := Random(11);

// exibe o resultado
ShowMessage('Número gerado: ' + IntToStr(numero));
end;


Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009.
Palavras-chaves:
gerador, quisermos, randômicos , faixa, randômico, ou, escrita, 0, Gerando, no, qual, função, só, > Para, e, compatibilidade, se, ainda, um, para, IntToStr, Veja, exibe, exemplo, pode, Sender, fornecido, dica, resultado , auxílio, gerado, procedure, iniciar, igual, que, retorna, =, inteiro, da, integer; begin , esta, ; , número, Randomize; , TObject, questões, de, Button1Click, aleatório, randômicos, Delphi, com, chamada, precisamos, Número, isso, numero, ShowMessage, 10 , ; var , feito, obter, 11, fornecer, o, > Em, 2009, gerar, a, > , situações, 10, aceita, Note, Esta, usando, menor, entre, algumas

mais o gerador é sorte mesmo ele vai gerando números tem 0,1% de chanse de gera cash meu amigo ja conseguiu 700.

Fechado [x]
Conteudo Proibido:Leias as [Tens de ter uma conta e sessão iniciada para poderes visualizar este link] antes de posta