#1 [Tutorial] Criando um gerador de senha | Delphi | Seg Out 24, 2011 11:24 am
๖ۣۜ Windows
VIP
- Spoiler:
Coloque um Edit (aba Standard) e um Button (aba Standard).
Clique 2 vez no Button, e adicione esse codico:
var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=10;
begin
Randomize;
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
____________________________________________________________________________