Sorteio aleatório

Delphi

01/07/2004

Caro colegas;

Tenho uma aplicação para sorteio de pilotos de rally, como devo fazer para gerar um sorteio aleatório de largada usando a tabela de pilotos inscritos, uso DBASE IV (Table).

Se possivel me envie um EXEMPLO.

Obrigado.

__________________
SPL (the).


P_lima

P_lima

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

01/07/2004

...
Uses
Math;
...
Function SortearPiloto : String;
Begin
   Randomize;
     Result := RandomRange(1,TabelaPiloto.RecordCount);
    // Aqui, vc pode armazenar o piloto que já saiu para que o mesmo não venha a repetir.
End;



GOSTEI 0
POSTAR