[ Delphi7 ] Criando Gerador

por **administrador** Seg maio 03, 2010 10:22 pm

Isso é Muito simples

Nivel = Iniciante

1º Passo - No form, insira 1 Edit e 1 Button.

2º Passo - Dps De 2 Klike No Button 1 e Adicione Esse Codigo

var
i: integer;
const
str = '12344254444554515151585544554451511';{Code a ser gerado}
max = 6;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}
begin
Edit1.Text := '';
for i := 1 to max do
Edit1.Text := Edit1.Text + str[random(length(str))+1];
end;

end.

Dps Aperte F9 E Teste Seu Programa

Mole né '-'

flw