Fórum Sorteio de um número qualquer... #234105
24/05/2004
0
como faço pra sortear um número de 1(edit1) a 15000(edit2) apenas indicando o número inicial e o último?
:wink:
Obrigado
:wink:
Obrigado
Patricio
Curtir tópico
+ 0
Responder
Posts
24/05/2004
Cdaraujo
Caro amigo,
Veja um exemplo simples de implementação para um sorteio de número!
procedure TForm1.Button1Click(Sender: TObject);
var
R:Integer;
begin
R := Random(1000);
ShowMessage(Format(´Veja o número sorteado em 1000 números: ¬d´, [R]));
end;
Atenciosamente,
Daniel Araújo
Veja um exemplo simples de implementação para um sorteio de número!
procedure TForm1.Button1Click(Sender: TObject);
var
R:Integer;
begin
R := Random(1000);
ShowMessage(Format(´Veja o número sorteado em 1000 números: ¬d´, [R]));
end;
Atenciosamente,
Daniel Araújo
Responder
Gostei + 0
24/05/2004
Cdaraujo
procedure TForm1.Button1Click(Sender: TObject);
var
R:Integer;
begin
Randomize;
R := Random(1000);
ShowMessage(Format(´Veja o número sorteado em 1000 números: ¬d´, [R]));
end;
var
R:Integer;
begin
Randomize;
R := Random(1000);
ShowMessage(Format(´Veja o número sorteado em 1000 números: ¬d´, [R]));
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)