CheatsNaNet
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Criando Sistema de Serial

Ir para baixo

Criando Sistema de Serial  Empty Criando Sistema de Serial

Mensagem por Mr.Positive Ter Dez 28, 2010 2:30 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
Mr.Positive
Membro
Membro

Mensagens : 54
Agradecimentos : 11
Data de inscrição : 28/12/2010
Idade : 29
Localização : Recreio

http://www.jonathanmaia.com.br

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos