Sortear... ? Nao REPETIR !
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
Curtidas 0
Respostas
Rômulo Barros
16/07/2003
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;
GOSTEI 0