Gerando numeros e letras aleatorios

[Rodrigo Miss 1]

Ola galera... alguem sabe c tm e como fazer pra gerar um codigo com nros e letras aleatorios? exemplo:'AF389X4W3"

[marcio.theis 3]

Têm sim, criptografia...

[bdexterholland 0]

for i:=0 to 10 do edit1.text:=edit1.text+chr(random(41)+49);Esse código que fiz DEVE ser APRIMORADO, mas a idéia é essa...

[marcio.theis 3]

Fiz uma geração aleatório de n° e letras misturados, veja se fica de acordo:

 

 

procedure TForm1.BitBtn1Click(Sender: TObject);const	str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';var	x:integer;beginEdit1.Text:='';for x:=1 to 10 do	Edit1.Text:=Edit1.Text + str[Random(Length(str)) + 1];end;

[Rodrigo Miss 1]

Issu ae... vlw Marcio