Fórum Sortear... ? Nao REPETIR ! #169763
16/07/2003
0
Como fazer com esta procedure abaixo...para não poder repetir o mesmo número a se sorter ?
procedure TForm.BotaoClick(Sender: TObject);
begin
randomize;
Label.caption:=inttostr(random(x));
end;
Rodrigo!
procedure TForm.BotaoClick(Sender: TObject);
begin
randomize;
Label.caption:=inttostr(random(x));
end;
Rodrigo!
Ropesca
Curtir tópico
+ 0
Responder
Posts
17/07/2003
Rômulo Barros
procedure TForm.BotaoClick(Sender: TObject);
begin
Randomize;
Label1.Caption:=IntToStr(RandomRange(1,100));// Valores entre 1 e 100
end;
begin
Randomize;
Label1.Caption:=IntToStr(RandomRange(1,100));// Valores entre 1 e 100
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)