Array
(
)

Animação em números

Patricio
   - 23 ago 2004

Tenho um sistemazinho de sorteio. Utilizo o seguinte código:
procedure TfSorteio.BitBtn1Click(Sender: TObject);
var
R:Integer;
begin
Randomize;
R := Random (17271);
ShowMessage(Format(´Veja o número do Plano sorteado: ¬d´, [R]));
end;

Só que preciso mudar esse valor (17271), e toda vez tenho que abrir o código e depois recompilar. Como Fazer isso em tempo de execução?
Como colocar os números animados. Ex.: Caça níkel.
Entenderam?
desde já agradeço.


Rômulo Barros
   - 23 ago 2004

procedure TfSorteio.BitBtn1Click(Sender: TObject);
var
R:Integer;
begin
Randomize;
R := Random (1,9000);
ShowMessage(Format(´Veja o número do Plano sorteado: ¬d´, [R]));
end;

Desse jeito, o número sorteado será um número entre 1 e 9000.