ACESSAR ou REGISTRAR
Caminho de Navegação Delphi / Artigos / :: Gerando codigo de Acesso (Senha)::

Delphi

 

Nenhuma avalição
Indique ao Ueba Indique ao BlogBlogs Indique ao Delicious Indique ao Technorati Indique ao Google Bookmarks Indique ao Newsgator
TAGS

Nenhuma tag foi definida ainda!

Defina as tags para esta página preenchendo o campo abaixo.

  • Máximo de 100 tags
  • Cada tag deve ter até 20 caracteres.
  • Separar as tags com virgula. Ex.: php, sql, html, xml, fireworks
COMENTAR

INDICAR
Nome do amigo: E-mail do amigo: Comentário:
REPORTAR ERRO Descreva o erro:

:: Gerando codigo de Acesso (Senha)::Postada em: 16/10/2005

Djalma Junior
Por: Djalma Junior Nº de Visualizações: 1655.



Utilizados ai os componentes TEdite mas eu costumo usar o Tlabel. Por que?
O label da um aspecto melhor a interface da aplicação .
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;
end.