Função ou exemplo de sistema de Sorteio

Delphi

06/09/2007

Olá amigos,

Bom dia!

Estou precisando de uma função ou exemplo de programa de sorteio de nome de clientes com leitura em banco de dados.

Mantmor


Mantmor

Mantmor

Curtidas 0

Respostas

Maic.rio

Maic.rio

06/09/2007

Amigo,
Se eu entendi o que realmente queria, segue abaixo;
Só deverá fazer algumas mudanças para sua necessidade;


procedure TFrmGestaoRisco.Button1Click(Sender: TObject);
var
  i: integer;
  numero: Array[1..10] of integer;
begin
  Randomize;

  // para pegar apenas um registro de 0 até 10.
  i := Random(10);

  // para pegar dez registro de 0 até 10;
  for i:= 0 to 10 do
  begin
    numero[i] := Random(10);
  end;
end;


Abraços,
Maic


GOSTEI 0
POSTAR