LucasDu4rte
-
Total de itens
2 -
Registro em
-
Última visita
Sobre LucasDu4rte
LucasDu4rte's Achievements
0
Reputação
-
LucasDu4rte alterou sua foto pessoal -
Curso de Delphi - 10 CD's
pergunta respondeu ao Emanuel Neves de LucasDu4rte em Tutoriais & Dicas - Delphi, Kylix
links quebrados :/ -
(Resolvido) Gerar numeros aleatórios sem repetir
pergunta respondeu ao robinhocne de LucasDu4rte em Delphi, Kylix
var Form1: TForm1; a: array [1..10] of TEdit; vetor1: array [1..10] of integer; procedure TForm1.BitBtn1Click(Sender: TObject); var y, i, Rand: integer; begin Randomize; for I := 1 to 10 do begin Rand:=Random(100); //será sorteado os números de 0 a 9 if i>1 then begin y:=1; repeat if Rand = Vetor1[y] then rand:= Random(100)+1; y:= y+1; until (y = I ); end; vetor1[I]:= Rand; A[i].Text:= IntToStr(vetor1[i]) end; end; Usei esse aqui para resolver meu problema :D