• Bem vindo à nossa comunidade - Quer se juntar ao resto dos nossos membros? Registre-se*Registros aprovados pela adminitração

[Tutorial - Basicão] Criando um Gerador de Nick

XSystemX

Usuário XPZ
Adicione 2 Edit e 1 Button


Declare a função:

 


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


No evento onchange do Edit1 coloque:
 


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
 
Topo Bottom