Buscar

Sorteando números com a função random

Código

Procedure TForm1.Button1Click(Sender: TObject);
  Var
    Rand,i:integer;
  begin
    Randomize;
    Edit1.Text:='';
    repeat
      Rand:=Random(9);       //será sorteado os números de 0 a 9
      if AnsiPos(IntToStr(Rand),Edit1.Text)=0 then         //somente se o número for diferente do já escolhido
        Edit1.Text := Edit1.Text+IntToStr(Rand);
    until(Length(Edit1.Text)=4); //quantos números diferentes você desejar obter.
  end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 12/01/05
Por: Jaime De Souza
Visualizada: 8357 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009