Random com intervalo no delphi

[Césio-137]

Pessoal

Quero fazer um programa que faça sorteio de números dentro de um intervalo pré determinado (ex: de 1 a 800)

Pretendo Gerar cartelas para uma rifa, com 4 numeros aleatórios em cada cartela....

 Porém não  sei como fazer este sorteio, usando a função Random ou de outra forma

Ao gerar este número dentro de um certo intervalo, vou verificar percorrendo um vetor se o numero já foi sorteado, para permitir ou não que seja incluído na cartela....

Alguém pode me ajudar, dar alguma orientação??

Valeu!!!

Ah, estou usando o Delhpi 3.

[CyberFOX]

use um timer!  ::

com ele você pode ter um controle preciso do que acontece com o programa, fica mais fácil do que fazer um FOR por exemplo.

p.s.: troca esse avatar cara, tá feio d+... põe o do Cruzeirão aí!!

[Césio-137]

Não entendi CyberFox.

como vou determinar o intervalo de valores para o sorteio (1<=x<=800) com o auxílio do Timer?

Ps.: Sobre o Avatar, ele é doid+ :oba: ,

o time é que é um lixo faz tempo.    

VAleu!!

[PBJR]

Postado Originalmente por Césio-137@19 Nov. 2003,17:51

Não entendi CyberFox.

como vou determinar o intervalo de valores para o sorteio (1<=x<=800) com o auxílio do Timer?

Ps.: Sobre o Avatar, ele é doid+ :oba: ,

o time é que é um lixo faz tempo.    

VAleu!!

No eventor Timer do componente tu chamarias a rotina que sorteará o numero... Se quiseres ajustar o intervalo do timer em tempo de execução basta mudares a propriedade interval...

[Skred]

aí!

siguinti:

//inicia o random

Randomize;

//gera um número randomico de 0 a 4

num := Random( 4 );

ou

//gera um número randomico de 1 a 4

num := RandomRange( 1, 4 );

trem que usar a biblioteca System para o Random

e Randomize e Math para RandomRange

ex: uses System, Math;

falou

[Césio-137]

Valeu Skred

Não conhecia esta função RandomRange, que aliás nem está no Help do Delphi 3, e pelo visto ela vai quebrar o meu galho de com força...

Vou testar hoje mesmo!!

VALEU A ATENÇÃO DISPENSADA!!!!!

hehe

:oba: