Random

[Lukas Fonseeca Caxias]

Olá a todos 

Eu queria saber como posso fazer um Random aletorio, não de numeros (1 a 100 etc..),

Ex:

s1:= '2010002601';

s2:= '2010002501';

s3:= '2010002801';

 

Em vez de o Random escolher os numeros aletorios, ele escolhe entre o s1 até o s3...

MAIS EU QUERO QUE ELE SELECIONE APENAS 1!

 

Me ajudem pfv

[Simon Viegas]

Olá.

 

No caso, um Random(X) geraria números de 0 a X-1... você poderia por exemplo usar um array,  e o número gerado seria a posição.

Só para exemplificar:

 

numeroEscolhido:=vetorS[Random(3)];

Obs.: O array teria que ser clarado de 0 a 2. Se declarar de 1 a 3, usaria Random(3)+1;

[Lukas Fonseeca Caxias]

Você poderia explicar melhor? XD, e que sou um pouco novato nisso...

o que seria no numeroEscolhido? 

Pois eu quero colocar mais e mais numeros.

Ex:

items_win: array[1..3] of Integer = ( 2010002601 ,  2010002601,  2010002601);

Como faço para executar está tarefa?

[Simon Viegas]

Tendo um array qualquer com números, o Random() fará o papel de sortear o número que esteja entre a faixa de posições desse array.

 

pos:=Random(10);
writeln('Numero da posicao',pos,'=',items_win[pos]);

 

[Lukas Fonseeca Caxias]

Ah obg, mais na parte da ligação dos pacotes? Ex:

sm:= TStringStream.Create(HexToInt('F1000000' + pos + 000F2'));

 

pois o "pos" e integer :/

[Simon Viegas]

Como citado, o Random() estaria sorteando a posição no array, ou seja, o array teria os números, e o Random() ajudaria a "escolher" um deles... pegando o seu código como base, creio que seria algo como:
 

sm:= TStringStream.Create(HexToInt('F1000000' + items_win[pos] + 000F2'));