FX Studios - Fórum
Olá,

Seja bem-vindo (a) ao FX Studios
Você só poderá postar mensagens ou criar fóruns se tiver registrado no nosso fórum
Se ainda não tem conta clique em "Registrar-se"
Se já tiver basta fazer login,
Não é necessário ativar sua conta, é só se registrar e logar
Se preferir, conecte usando o Facebook
Muito obrigado pela sua visita.
FX Studios - Fórum


 
InícioInício  GaleriaGaleria  BuscarBuscar  Registrar-seRegistrar-se  Conectar-se  

Compartilhe
 

 [Tutorial] Criando um Gerador de Nick

Ir em baixo 
AutorMensagem
iKru3NsTz Mod
Membro Extreme
Membro Extreme
iKru3NsTz Mod

Mensagens : 129
Idade : 21
Reputação : 12
Data de inscrição : 05/08/2011
Ocorrências : 65/100
Clã : NoFlex

[Tutorial] Criando um Gerador de Nick Empty
MensagemAssunto: [Tutorial] Criando um Gerador de Nick   [Tutorial] Criando um Gerador de Nick EmptySex Maio 15, 2015 10:19 am

Adicione 2 Edit e 1 Button


Declare a função:

Código:
function nibzxd(nibz: string; clube: integer; programacao: integer): string;
begin
Result := Copy(nibz, clube, programacao);
end;


No evento onchange do Edit1 coloque:

Código:
var
nibz: String;
begin
nibz := nibzxd(Edit1.Text,Length(Edit1.Text),Length(Edit1.Text) + 1);
If nibz = 'a' Then nibz := 'A';
If nibz = 'b' Then nibz := 'B';
If nibz = 'c' Then nibz := 'C';
If nibz = 'd' Then nibz := 'D';
If nibz = 'e' Then nibz := 'E';
If nibz = 'f' Then nibz := 'F';
If nibz = 'g' Then nibz := 'G';
If nibz = 'h' Then nibz := 'H';
If nibz = 'i' Then nibz := 'I';
If nibz = 'j' Then nibz := 'J';
If nibz = 'k' Then nibz := 'K';
If nibz = 'l' Then nibz := 'L';
If nibz = 'm' Then nibz := 'M';
If nibz = 'n' Then nibz := 'N';
If nibz = 'o' Then nibz := 'O';
If nibz = 'p' Then nibz := 'P';
If nibz = 'q' Then nibz := 'Q';
If nibz = 'r' Then nibz := 'R';
If nibz = 's' Then nibz := 'S';
If nibz = 't' Then nibz := 'T';
If nibz = 'u' Then nibz := 'U';
If nibz = 'v' Then nibz := 'V';
If nibz = 'w' Then nibz := 'W';
If nibz = 'x' Then nibz := 'X';
If nibz = 'y' Then nibz := 'Y';
If nibz = 'z' Then nibz := 'Z';
Edit2.Text := Edit2.Text + nibz;

-> Mude as letras Maiúsculas pelas letras diferentes


No evento onclick do Button coloque:
Edit1.Clear;
Edit2.Clear;

Créditos : Victor_xp
Voltar ao Topo Ir em baixo
 
[Tutorial] Criando um Gerador de Nick
Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
FX Studios - Fórum :: Programação :: Delphi-
Ir para: