Ir para conteúdo
Fórum Script Brasil
  • 0

Numeros Randomicos


Guest eu mesmo

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

para podermos exercitar nosso pleno direito de usar o forum, registre-se, escolha um belo nick e poww!!!. falowss.

veja se isso pode te ajudar

-----------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=6;

begin

Edit1.Text:='';

for i:=1 to max do

Edit1.Text:=Edit1.Text+str[random(length(str))+1];

end;

-----------------------------------------------------------------

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...