Opa, valew muito cara vc nem sabe o quanto me ajudou, to tentando aprender delphi sosinho pq me questionaram se eu era capaz e isso se tornou uma meta de vida p mim e ainda bem q existem pessoas como vc aqui no grupo, muito obrigado mesmo cara tava dificil pq eu não sabia q existia o tipo TList mas ele pode ser alterado e no lugar dele usar um array como eu estava tentando?
Flws [EMAIL PROTECTED] > Opa, foi mau! Vou aproveitar e melhorar este código! > > procedure TForm1.BitBtn1Click(Sender: TObject); > var > sena: integer; > Lista: TList; > begin > Randomize; > ListBox1.Items.Clear; > Lista := TList.Create; > try > while Lista.Count < 15 do > begin > repeat > sena := Random(100) > until Lista.IndexOf(Pointer(sena)) = -1; > Lista.Add(Pointer(sena)); > ListBox1.Items.Add(IntToStr(sena)); > end; > finally > Lista.Free; > end; > end; > > Estude-o e adapte-o às suas necessidades. > Sds.
