Sorteio entre 9 numeros (Random?)

Delphi

15/10/2003

Boa Noite,
Eu gostaria de fazer uma função que sorteie um elemento de seus paramentros:


chamada: Sorteio(1,4,5,6,7) retorna aletoriamente 1 ou 4 ou 5 ou 6 ou 7

como faço??


Michelsp

Michelsp

Curtidas 0

Respostas

Beppe

Beppe

15/10/2003

Cria um array:

const
  Numeros: array[0..4] of Integer = (1, 4, 5, 6, 7);
var
  Escolha: Integer;
begin
  Escolha := Numeros[Random(Length(Numeros))];
end;


Se você quer uma função:
function Sorteio(const Numeros: array of Integer): Integer;
begin
  Result := Numeros[Random(Length(Numeros))];
end;

Chame Sorteio([1, 4, 5, 6, 7]);

Ataliba


GOSTEI 0
Michelsp

Michelsp

15/10/2003

Muito Obrigado!!


GOSTEI 0
POSTAR