[Ajuda] Gerador

[gostosao12345 0]

Tipo, eu tenho o codigo

 

Var

a: array[0..5] of integer;

i: Integer;

begin

for i:= 0 to 5 do //exemplo de como usar variavel

begin

a:= random(50);//o maximo para ser sorteado

 

Edit1.Text:= FloatToStr (random(50));

 

end;

 

 

Mas ao inves de a senha sair no Edit1 eu queria que

ela aparecesse no Label1, e no random(50) ali que

é onde esta programado o limite maximo do numero

eu queria que fosse possivel editar, ao inves de colocar

o 50 na source fosse possivel colocar um numero escolhido

pela pessoa em um Edit.

 

O do numero gerado aparecer no Label1 eu ja sei mais ou menos,

o que me falta é a parte de colocar o numero limite no Edit1.

[xxnalimxx 0]

Assim pelo que eu pude entender voce ta gerando senha mas só gera dois digitos.

 

Para aparecer o resultado em um label faça o seguinte:

No lugar do edit1.text voce ira colocar label1.caption

 

E sobre um nuero limite eu nao entendi bem voce deve formular melhor suas duvidas.

Mas fica a dica de substituir o 50 por 999999999 (nove noves)

 

E se quiser deixar a pessoa editar voce pode colocar um outro button e:

Coloque um edit com a propriedade visible como false.

Coloque um button e na propriedade on click faça:

buttoneditar.visible:= true;

edit.visible:= true;

edit.visible:= label.caption;

E caso queira que o label receba o edit novamente pode fazer assim

Cria um button para aplicar. com propriedade visible false

ele sera ativa com o clique no botao editar

e coloque assim label1.caption:= edit1.text;

[gostosao12345 0]

No caso seria assim...

Eu tenho 50 ali no random (que é o numero limite, desse numero nao passa),

mas eu queria que ficasse mais ou menos assim:

 

Var

a: array[0..5] of integer;

i: Integer;

begin

for i:= 0 to 5 do //exemplo de como usar variavel

begin

a:= random(Edit1.text);//o maximo para ser sorteado

 

label1.caption:= FloatToStr (random(Edit1.text));

 

Eu ja tentei assim, so que da um erro, e tambem tentei

colocando assim: Edit1.MaxLength

É isso que eu quero, fazer que o numero maximo gerado

nao ultrapasse o numero colocado no Edit1.

[xxnalimxx 0]

Amigo abaixo segue seu codigo reformulado e fazendo o que voce deseja

que no caso e deixar o valor do edit como numero maximo para randomizar

 

Var

a: array[0..5] of integer;

i,b: Integer;

begin

for i:= 0 to 5 do

begin

a:= random(length(Edit1.text));

b:= strtoint(edit1.text);

label1.caption:=floattostr (random(b));

end;

 

Só pra lembrar que nao precisa dessa gambiarra toda pode-se ramdomizar assim

 

var

b: integer;

begin

b:= strtoint(edit1.text);

label1.caption:=floattostr (random(b));

[~OwneR~ 5]

Simples =)

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

• Entre
• ou
• Cadastre-se

[Owner 4]

A coisa fácil é fazer isto, foi explicar:

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

• Entre
• ou
• Cadastre-se

A pessoa escolhe o numero do limite no edit1 e quando aperta no button gera a senha menor que o limite escolhido (:

Espero ter ajudado !

Acho que ja pode dar close( já resolveu, né ? )

[gostosao12345 0]

Muito obrigado a todos, seis sao muito bons mesmo.

Pode dar closed se quiser...! :smiley:

[Ryokusei 14]

Resolvido, fechado.