Fórum Função de Sorteio #236893

09/06/2004

0

Bom dia, pessoal do ClubeDelphi.

Alguém sabe como fazer uma função para sortear aleatoriamente uma palavra dentro um conjunto de palavras ?

Por exemplo:
Tem-se os valores: 1A7, ND25, 21E, KW5 etc.
Considerando este conjunto, quero obter um valor aleatoriamente.

Qualquer ajuda é bem-vinda,


Fabiana Linden


Falinden

Falinden

Responder

Posts

09/06/2004

Aroldo Zanela

Colega,

Utilize o Randomize para sortear um número de elementos (palavras) dentro de uma StringList.


Responder

Gostei + 0

09/06/2004

Falinden

Aroldo,

o procedimento randomize prepara a execução para a chamada à função random() [que efetivamente gera um valor aleatório].
Porém, o parâmetro passado é numérico. Preciso de algo que seja alfa-numérico.


Grata,


Responder

Gostei + 0

09/06/2004

Aroldo Zanela

Colega,

Pensei em algo como:

var Lista: TStringList;
    Item: Integer;
    Laco: Byte;
begin

  Randomize;

  Lista := TStringList.Create;

  Lista.Add(´1A7´);
  Lista.Add(´ND25´);
  Lista.Add(´21E´);
  Lista.Add(´KW5´);

  For Laco := 1 to 10 do
    ShowMessage(Lista.Strings[Random(3)]);

  Lista.Free;

end;



Responder

Gostei + 0

09/06/2004

Falinden

Pessoal,

Vamos supor o conjunto com os seguintes valores: 1A7, ND25, 21E, KW5 etc.
Considerando este conjunto, como obter um valor aleatoriamente ?

Grata,


Responder

Gostei + 0

09/06/2004

Falinden

Caro Aroldo,

Agradeço muito a sua ajuda.

* Favor desconsiderar a última resposta ao tópico. Eu não tinha visto a sua solução. No ´gap´, acabei ´postando´ de novo a minha pergunta.
Foi mal.


Valeu mesmo,

Fabiana Linden


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar