[Delphi] erro no gerador de nick

[Luiz Felipe. 0]

Bom segui o tutorial do mgbcrazy e esta dando um erro quando vo aperta f9

 

tópico http://www.webcheats.com.br/forum/delphi-vb/441400-delphi-criando-um-gerador-de-nick.html

 

Erro

 

 

esta dando erro no edit 1

 

alguem me ajuda ae

[DragonBoss 9]

posta ae como ta seu codigo pra gente analisar ;P

 

são erros de diferentes generos '-'

[Mestre_Vator 0]

A maioria de sintaxe.

Significa que é mais um noob que não sabe o que é um if/then ou uma procedure/function.

Não sabe nem usar um edit.

 

Aprenda com a vida e resolva vossos erros.

[- Disturbed 0]

Estude Mais *-*

 

Eu que estou começando meus estudos agora em delphi, já sei como resolve esses errinhos bobos...

Como o Vator disse, aprenda sozinho e pare de criar topicos com essas dúvidas, leia algumas apostila ou estude mais :P

 

 

Ta ae lek, sem erros ... acabei de fazer rapidinho, bem simples!

Uma dica : Estude mais *---*

 

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

• Entre
• ou
• Cadastre-se

 

Sem VirusScan porquê nem quer abrir aqui ¬¬'

Se desconfiar de Virus melhor nem baixar

[josue1602 0]

Primeiro Se Tem q Declarar a Função:

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

begin

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

end;

 

em baixo do {$R *.dfm}

 

e depois de dois clicks no eidt1 e coloce ess 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;

 

Lembrando Q Se Tem Q Apagar o Begin Já Escrito Ok?

[Luiz Felipe. 0]

Já achei onde estava o erro.

Pode tranca.