Eu acho que está havendo algum problema conceitual...
Random serve para pegar um número ALEATÓRIO e não que este não seja
repetido...
tipo... Random(10) vai pegar QUALQUER NÚMERO que corresponda ao conjunto de
números inteiros entre 0 e 9, inclusive. As chances de qualquer um desses
números sair
Galera, ta ae o código que estou usando:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
listbox1.clear;
randomize;
for I := 0 to 9 do
listbox1.Items.Add(inttostr(random(10)));
end;
E vou testar os códigos e as dicas que me passaram.
E João Morais, eu
2 matches
Mail list logo
