Função de Sorteio

Delphi

09/06/2004

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

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

09/06/2004

Colega,

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


GOSTEI 0
Falinden

Falinden

09/06/2004

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,


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

09/06/2004

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;



GOSTEI 0
Falinden

Falinden

09/06/2004

Pessoal,

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

Grata,


GOSTEI 0
Falinden

Falinden

09/06/2004

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


GOSTEI 0
POSTAR