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.

Jump to content

Bem-Vindo ao FX Studios Fórum!
Cadastre-se agora para obter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, ganhar reputação e competir com seus companheiros, receber e enviar mensagens privadas para outro usuário, atualizar status, modificar o seu perfil e muito mais. (Essa mensagem será removida após logar-se.)
Entrar Criar uma conta!

Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

#1
 
iKru3NsTz Mod

avatar
Membro Extreme
Membro Extreme
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


Permissão deste fórum:
Você não pode responder aos tópicos neste fórum

 

Bem-VindosSe você ainda não tem uma conta, clique aqui para fazer uma.