Gerar numero aleatorio no delphi
Estou montando um programa para gerar numeros aleatorios em um memo, ele pegaria 15 numeros de 1 a 25..... usei o seguinte comando para o programa:function sorteia(const min:integer):string;vartem:set of byte;s:string;n,i:integer;begins:='';tem:=[];for i:=1 to 15 dobeginn:=random(25);while n in tem dobeginn:=random(25);end;tem:=tem+[n];s:=s+' '+inttostr(n+(min));end;result:=copy(s,2,length(s)-1);end;procedure TForm1.Button1Click(Sender: TObject);beginMemo1.Lines.Clear;Memo1.Lines.Add(sorteia(1));end;Com isso eu consigo gerar estes 15 numeros, só que agora o pessoal do serviço qr q o programa, ao escolher alguns numeros, tipo 1, 2 e 6, o restante (3,4,5,7 ao 25) seriam gerados aleatoriamente e colocado no Memo... que comando usaria para gerar estes numeros???Outra coisa que não estou conseguindo é colocar cada numero e, uma linha do Memo, eles aparacem em uma linha só.....
Discussão (5)
Carregando comentários...