Função para randomize
[color=darkblue:74e7b333f9]Gostaria de saber se alguém possue alguma função de randomize para sorteios :?: [/color:74e7b333f9]
Anonymous
Curtidas 0
Respostas
Anonymous
10/03/2003
Não entendi o que vc quer mas a funçãpo Random() sorteia numeros
GOSTEI 0
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]
[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
10/03/2003
veja no help
Randomise;
Random;
[]´s
Randomise;
Random;
[]´s
GOSTEI 0