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: 18349 vezes
Adicionada dia: 12/01/05
Por: Jaime De Souza
Visualizada: 18349 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009