Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Criando Sistema de Serial

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Criando Sistema de Serial

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:21 pm

Adicione ao seu form :

1 Timer - System
1 Edit - Samples
1 Button - Samples

Propiedades

Mude as propiedades do Timer 1 para

Interval - 1
Enabled - False


Abaixo de :

var
Form1: TForm1;

Adicione à variavel :

F: TextFile;
linha: String;

Adicione o codigo no Button1 :


If Edit1.Text = 'Serial aqui' then // Se o Text do edit for Serial aqui
Form2.Show // Abre o Form2
Timer1.Enabled:=True
Else // Se nao
Application.Terminate; // Termina a Aplicaçao


Adicione o codigo no Timer1 :

assignFile(f,'c:\TextoEdit.txt');
reset(f); //abre o arquivo para leitura;
while not eof(f) do begin
readln(f,linha); //le do arquivo e desce uma linha.
Edit1.Text := linha; //Adiciona o texto do TXT no Edit
end;
closefile(f);
AssignFile(f,'c:\TextoEdit.txt');
rewrite(f); //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha
closefile(f); //fecha o handle de arquivo

[Creditos] - Au Criador

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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