[DELPHI] Criando um Gerador de Nick

[mgbcrazy 0]

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

[Ryokusei 25]

Pra que tudo isso? '-'

Não entendi o propósito. Até fiz o projeto, mas o efeito é só um UpperCase (você poderia ter usado essa função).

[DragonBoss 8]

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

[DarkSj 0]

legal, esse mgbcrazy sabe de muiita coisa hein...

:D

[~OwneR~ 8]

Legal, basta alterar as letras como ele disse...

[JoaoZiicka~ 0]

Tenho uma pergunta, ja qe so noob em delphi, como é que eu declaro essa função ?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Desde já agradeço.

[DragonBoss 8]

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

[mgbcrazy 0]

Cole embaixo de

 

implementation

 

{$R *.dfm}

 

cola em baixo do verdinho (:

 

espero ter ajudado

[JoaoZiicka~ 0]

Mi compliquei todo aqui e ainda não consegui fazer ;ss

[matheusguerra 3]

cara muito bom, bem simples

 

@JoaoZiicka~ ainda usando o avatar que eu fiz pra você, se quiser usar minha fanbar eu não ligo ta

[JoaoZiicka~ 0]

@matheusguerra

sim matheus , mas pra que vo usa uma fan bar se nem fãs eu tenho ? klaçsçlkaçk

[Pitangaxd 0]

Otimo tutorial.

Pena que sou iniciante em delphi..

Metas > Programados.

 

Sua inveja e a Velocidade do meu Sucesso.

[mgbcrazy 0]

Pitanga e muito facil de fazer leia tutoriais de iniciantes para saber como usr os componentes e tals e ja consigguira seguir esse tuto

 

ele eh bem simples (:

[webcheatshack2010 3]

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!

[DragonBoss 8]

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

[Attacker' 0]

Muito bom e simples

continua assim

flw's

abraç's

[mgbcrazy 0]

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

[DragonBoss 8]

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

[josue1602 0]

Muito Bom xD

[mgbcrazy 0]

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

[DragonBoss 8]

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