Pages

terça-feira, 22 de março de 2011

Utilizando o comando random(); - Delphi 7

Você conhece a função random() essa função escolhe um número aleatório.
ex:
writeln('Numero: ', IntToStr(random(9))); 
//escolhe um numero de 0 a 9

Mais se você for usar o random em uma aplicação com interface não funciona, isso porque você deverá iniciar uma outra função.
Exemplo de um programa que escolhe uma letra do nome do usuário:
Crie uma nova aplicação e coloque:
  1. 1 TButton
  2. 1 TEdit
Evento oncreate do form:
Randomize; //chama a função do random
No onclick do botão coloque
showmessage('A letra escolhida foi: '+edit1.text[random(8 + 1)]);

Agora teste e veja o resultado.
Download com source: http://rotavirtual.com.br/sourcedelphi/SourceDelphi-Random.rar

Nenhum comentário:

Postar um comentário