|| Função Delphi 7 / Random / Ajudem ||

[IbackPwneÐ 0]

Pessoal, Queria uma função para criar uma sequência de núemros aleatórios, mas assim :

 

1. Eu delimito o número de números
   
2. Eu delimito quais números eu quero ( Exemplo : Não quero que tenho o número 0 )
   

Eu queria um código assim, alguém pode ajudar ?

[Ryokusei 28]

Limite o random.

 

Randomize;

Showmessage(IntToStr(Random(5)+1));

[Owner 8]

Movido

[IbackPwneÐ 0]

Ryo, queria que fosse num edit, não na mensagem, não entendi muito bem a função pode ajudar mais um pouquinho ?

 

Como delimito o número de digitos ?

 

Modifiquei minha função para :

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Randomize;

Edit1.text := (IntToStr(Random(123456789)+1));

end;

 

end.

[Owner 8]

Usa constantes, variaveis.

Exemplo:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Ryokusei 28]

Use matemática. Leia isto:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[IbackPwneÐ 0]

Obrigado, problema resolvido, Mod Closed aqui. *--*

[Owner 8]

Fechado.!