Programa de sorteio

[Guest --felipejm --]

intao.. eu sei que isso não tem nd haver com virus nem nd do tipo.. mais eu queria saber uma coisa.. eu to querendo fazer um programa que faça sorteio de numeros.. tipo assim, que quando eu clike no botao ele sorteie um numero.. mais eu so novo no delphi e queria saber se alguém pode me ajudar a fazer um.. 8)

[Antonio Anselmo]

eu não sei se e bem isso q você quer mas veja se o codigo abaixo pode te ajudar em alguma coisa

você vai precisar de um edit e um button no form do delphi para poder fazer esse codigo

OBS: esse codigo gera numeros de 4 digitos caso queira mais ou menos digitos e so mudar o numero 4 para o numero de digitos q você desejar

procedure TForm1.Button1Click(Sender: TObject);

Var

Rand,i:integer;

begin

Randomize;

Edit1.Text:='';

repeat

Rand:=Random(9); //será sorteado os números de 0 a 9

if AnsiPos(IntToStr(Rand),Edit1.Text)=0 then //somente se o número for diferente do já escolhido

Edit1.Text := Edit1.Text+IntToStr(Rand);

until(Length(Edit1.Text)=4); //quantos números diferentes você desejar obter.

end;

Editado Setembro 17, 2008 por Antonio Anselmo