Sorteio de um número qualquer...
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
Curtidas 0
Respostas
Cdaraujo
24/05/2004
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
GOSTEI 0
Cdaraujo
24/05/2004
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;
GOSTEI 0