Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

[DELPHI] Criando um Gerador de Nick


mgbcrazy
 Compartilhar

Posts Recomendados

Adicione 2 Edit e 1 Button

 

 

Declare a funçãoo:

 

CODE

function Procode(Mgbcrazy: string; Pro: integer; Code: integer): string;

begin

Result := Copy(Mgbcrazy, Pro, Code);

end;

 

 

No evento OnChange do Edit1 coloque:

 

CODE

var

Mgbcrazy: String;

begin

Mgbcrazy := Procode(Edit1.Text,Length(Edit1.Text),Length(Edit1.Text) + 1);

If Mgbcrazy = 'a' Then Mgbcrazy := 'A';

If Mgbcrazy = 'b' Then Mgbcrazy := 'B';

If Mgbcrazy = 'c' Then Mgbcrazy := 'C';

If Mgbcrazy = 'd' Then Mgbcrazy := 'D';

If Mgbcrazy = 'e' Then Mgbcrazy := 'E';

If Mgbcrazy = 'f' Then Mgbcrazy := 'F';

If Mgbcrazy = 'g' Then Mgbcrazy := 'G';

If Mgbcrazy = 'h' Then Mgbcrazy := 'H';

If Mgbcrazy = 'i' Then Mgbcrazy := 'I';

If Mgbcrazy = 'j' Then Mgbcrazy := 'J';

If Mgbcrazy = 'k' Then Mgbcrazy := 'K';

If Mgbcrazy = 'l' Then Mgbcrazy := 'L';

If Mgbcrazy = 'm' Then Mgbcrazy := 'M';

If Mgbcrazy = 'n' Then Mgbcrazy := 'N';

If Mgbcrazy = 'o' Then Mgbcrazy := 'O';

If Mgbcrazy = 'p' Then Mgbcrazy := 'P';

If Mgbcrazy = 'q' Then Mgbcrazy := 'Q';

If Mgbcrazy = 'r' Then Mgbcrazy := 'R';

If Mgbcrazy = 's' Then Mgbcrazy := 'S';

If Mgbcrazy = 't' Then Mgbcrazy := 'T';

If Mgbcrazy = 'u' Then Mgbcrazy := 'U';

If Mgbcrazy = 'v' Then Mgbcrazy := 'V';

If Mgbcrazy = 'w' Then Mgbcrazy := 'W';

If Mgbcrazy = 'x' Then Mgbcrazy := 'X';

If Mgbcrazy = 'y' Then Mgbcrazy := 'Y';

If Mgbcrazy = 'z' Then Mgbcrazy := 'Z';

Edit2.Text := Edit2.Text + Mgbcrazy;

 

-> Mude as letras Maiusculas pelas letras diferentes

 

 

No evento OnClick do Button coloque:

 

CODE

Edit1.Clear;

Edit2.Clear; //para limpar os campos

Link para o comentário
Compartilhar em outros sites

nao Ryo, eh tipo gerador de nick da net... akeles lah ke dexa os nick personalizados, tipo, troka o S pr $, o L pra £ .. e tals.. eh soh mudar as letras em maiuscula pra letras personalizadas =]

 

gostei, levo tanks... xD

 

flw, abraços

Link para o comentário
Compartilhar em outros sites

funçao eh declarada embaixo do "implementation", no inicio do codigo ^^.. qualker coisa, duvidas iniciantes e tals, tem um topico meu na quicklist ke eh pra coisas assim, como declarar var, uses .. e tals..

 

flw, abraçs

Link para o comentário
Compartilhar em outros sites

  • 3 semanas atrás...

function Procode(Mgbcrazy: string; Pro: integer; Code: integer): string;

begin

Result := Copy(Mgbcrazy, Pro, Code);

end;

Aonde coloco este code acima?

 

Mais uma coisa

qunado eu dou f9 para testa o prgrama fika vermelho esta parte

 

function Procode(Mgbcrazy: string; Pro: integer; Code: integer): string;

begin

Result := Copy(Mgbcrazy, Pro, Code);

end;

qual sera o correto ? erro esta de vermelho acima! o nome esta errado ?

ajuda por favor!

Link para o comentário
Compartilhar em outros sites

Aonde coloco este code acima?

 

vamoss laa... esse codigo, eh uma function, entao ele deve ser declarado ( colokado) abaixo do implementation ( no inicio do programa, veja la, vc axa )

 

dps ke vc declarar certo... ae provavelmente nao vai dar erro, pq o code eh simples =]

 

flw, abraçs

Link para o comentário
Compartilhar em outros sites

Sim sim isso msm dragon

 

ai se alguem tiver outro metodo por favor postar.

 

pq nao sei se e a culpa do delphi ou do metodo eu tentei usar uns caracteres especiais e ele aprece um "? " ( ponto de interrogação ) quando eu colo o caractere :s

Link para o comentário
Compartilhar em outros sites

Crazy, ve se nao eh alguma imcompatibilidade com o sistema.. sei la, pode ser ke vc pois algo ke o seu sistema nao le ( ou le somente em alguns editores de texto )

tenta passar o programa pra alguem ke tenha sistema diferente =]

 

flw, abraçs

Link para o comentário
Compartilhar em outros sites

vc diz oq sistema operacional ???

 

tipo la tem um "A'' que eh bem diferente do comum tipo otra fonte

ai eu copiei na hora de colar no delphi ele sai ' ? "

:S

 

hum, pode ser .. as vezes nao eh compativel.. ae da erro.. tenta usar soh teclas ke funcione no delphi ( sem ser outras ke vc axa por ae em sites ) e ve se funciona...

 

flw, abraçs

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.