Função para randomize

Delphi

10/03/2003

[color=darkblue:74e7b333f9]Gostaria de saber se alguém possue alguma função de randomize para sorteios :?: [/color:74e7b333f9]


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

10/03/2003

Não entendi o que vc quer mas a funçãpo Random() sorteia numeros


GOSTEI 0
Hegs

Hegs

10/03/2003

[color=darkblue:5fb3bf4278]É que tenho uma tabela com o cadastro de 10 funcionários, de 1 a 10, e quero fazer uma que insira em uma outra tabela o resultado do sorteio para de funcionários que irão desempenhar uma certa atividade em um dado período, ps. não pode haver repetições ou seja sempre renovar o grupo de funcionarios tipo( 1,4,7; 2,5,6; 7,3,8 ; prox. grupo: 4,5,7 etc. ):!: usei o random() mas não o entendi direito pois criei um array de 3 números e a usei assim:[/color:5fb3bf4278]

[b:5fb3bf4278]For[/b:5fb3bf4278] i:=1 [b:5fb3bf4278]To[/b:5fb3bf4278] 3 [b:5fb3bf4278]Do[/b:5fb3bf4278]
numero[i]:=i;

[b:5fb3bf4278]For[/b:5fb3bf4278]i:=1 [b:5fb3bf4278]To [/b:5fb3bf4278]2 [b:5fb3bf4278]Do[/b:5fb3bf4278]
Label1.Caption:=Label1.Caption+IntToStr(random(numero[i]))+´ ,´;

[color=darkblue:5fb3bf4278]Só que a resposta foi: 0,0,1[/color:5fb3bf4278]


GOSTEI 0
Anonymous

Anonymous

10/03/2003

veja no help

Randomise;

Random;

[]´s


GOSTEI 0
POSTAR