Obrigado, Convidado!
Bem-vindo ao FMGARCIA - SAMP!
Tópicos mais visitados
Administradores
Top dos mais postadores
HuemersonFMG | ||||
CleidiSilva21 | ||||
barbfix | ||||
Tranks_NorT | ||||
RenatoFMG | ||||
William | ||||
Vinícius_ Kawasaki | ||||
scorpio | ||||
alfredw10 |
FMG - O MELHOR SERVIDOR RPG SAMP - RADIO ONLINE
Delphi 10 - Gerando Senhas Aleatórias
Página 1 de 1
Delphi 10 - Gerando Senhas Aleatórias
Delphi 10 - Gerando Senhas Aleatórias
Inicie criando um novo aplicativo.
No Form inicial, renomeie a Unit para [uSenhasAleatorias.pas] e o Form para [FrmSA], insira os componentes:
>> 01 - TComboBox;
> Crie uma sequência numérica em [Itens] e marque em [ItemIndex] o valor inicial.
>> 01 - TBitBtn;
> Digite no [Capition] o valor [Gerar Senha Aleatória].
>> 01 - TEdit;
>Deixe o valor de [Text] vazio.
>>> Utilize um painel para agrupá-los.
Após dispor os componentes no Form de acordo com seu design, clique duas vezes sobre o botão e insira o código abaixo:
- Código:
procedure TFrmSA.BitBtn1Click(Sender: TObject);
begin
var
i :integer;
const
str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
const
max = ComboBox1.ItemIndex;
begin
Edit1.Text := '';
for i:=1 to max do
begin
Edit1.Text := Edit1.Text + str[random (length(str)) + 1];
end;
end;
end;
HuemersonFMG- Fundador - ADM
- PublicaçõesPublicaçõesMembro VipMembro VipCriador de TópicosCriador de TópicosParticipação em tópicosParticipação em tópicosCriador de EventosCriador de EventosPopular no fórum - AmigosPopular no fórum - AmigosAvaliação de MSGAvaliação de MSGMelhores avaliações de AmigosMelhores avaliações de AmigosRei dos Grupos no FórumRei dos Grupos no FórumMelhor RPGRecebe este ao criar sua Ficha RPG no Perfil
- Mensagens : 506
Pontos : 26514
Reputação : 0
Data de inscrição : 11/06/2018
Idade : 51
Localização : Brasil
FMGRPG
FMG:
(200/100)
Tópicos semelhantes
» Tutoriais Delphi na Net
» Expressões Regulares e seu uso com Delphi
» Dicas para Delphi - Programação
» Banco de Dados MySQL com Delphi.
» Dicas Delphi para Excel
» Expressões Regulares e seu uso com Delphi
» Dicas para Delphi - Programação
» Banco de Dados MySQL com Delphi.
» Dicas Delphi para Excel
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Qui 14 Mar 2024, 09:36 por HuemersonFMG
» Esqueceu o número do seu telefone?
Ter 05 Dez 2023, 12:51 por HuemersonFMG
» Scripts SQL - Oracle
Ter 05 Dez 2023, 11:56 por HuemersonFMG
» Dicas para Excel
Sex 27 Out 2023, 11:22 por HuemersonFMG
» Acentos e Caracteres Especiais em HTML
Sex 20 Out 2023, 13:17 por HuemersonFMG
» Dez motivos para consumir mais café...
Dom 27 Ago 2023, 05:09 por alfredw10
» Combinações de teclas do Windows
Dom 06 Ago 2023, 13:29 por HuemersonFMG
» PL/SQL - Extensão da linguagem SQL - Oracle
Qua 10 maio 2023, 10:16 por HuemersonFMG
» Node.js é uma tecnologia assíncrona
Ter 09 maio 2023, 11:21 por HuemersonFMG
» Pontos Cardeais
Seg 24 Abr 2023, 20:02 por HuemersonFMG
» 1º DE MAIO – DIA MUNDIAL DO TRABALHO
Seg 24 Abr 2023, 15:34 por HuemersonFMG
» ChatGPT - robô virtual (chatbot) que responde a perguntas variadas
Seg 20 Fev 2023, 11:23 por HuemersonFMG
» Simples Página de Login em HTML - Visual Studio Code
Seg 06 Fev 2023, 13:40 por HuemersonFMG
» HTML - Dicas interessantes
Qui 19 Jan 2023, 17:02 por HuemersonFMG
» https://phaser.io/ - para criar jogos HTML5
Ter 17 Jan 2023, 13:06 por HuemersonFMG