cmo fazer ordem aleat�ria de numeros

Question

Caro amigos estou fazendo um sistema que gera ordem aleat�ria at� consegui fazer com exemplos aqui do forum utilizando [b:834eb94ef0]random[/b:834eb94ef0],mas por�m nao resolve meu problema, porque a ...

Delphi32 · Answer

Existe uma forma de contornar esse problema...

Coloque os n�meros que voc� quer colocar numa StringList e sorteie os itens da StringList. Mais ou menos assim:

.
.
.
var t:TStringList;
      i:integer;
begin
   t := TStringList.Create;//cria a lista
   for i:=1 to 10 do t.add(inttostr(i));//adiciona os n�meros na lista
   //Vamos sortear agora uma combina��o aleat�ria para os n�meros de 1 a 10
   while t.Count > 0 do
   begin
      randomize;
      i := random(t.Count);
      Memo1.Lines.Add(t[i]);
      t.Delete(i);
   end;
end;

A� eu fui adicionando os itens em um memo... Qualquer d�vida, poste aqui, OK?

bb!

Mahdak · Answer

sobe------e se eu quiser fazer uma rotina para que o usuario tenha que me pedir uma senha todo mes, pro sistema poder rodar normalmente. teria que fazer um sistema para gerar essa senha, e o codigo de saida desse sistema teria que ser +- igual ao codigo de entrada desse sistema, certo?Porem nao consegui que esse codigo funcionasse...alguem poderia me dar uma luz???valleu :wink:...

F�rum cmo fazer ordem aleat�ria de numeros #222101