Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

Sistema de Serial

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3776
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

Sistema de Serial

Mensagem por MrViSiBLe em 7/21/2010, 06:33

Adicione ao seu form :


Citação:
1 Timer - System
1 Edit - Samples
1 Button - Samples
Propiedades

Mude as propiedades do Timer 1 para


Citação:
Interval - 1
Enabled - False


Abaixo de :

var
Form1: TForm1;

Adicione à variavel :


Citação:
F: TextFile;
linha: String;

Adicione o codigo no Button1 :


Citação:
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 :



Citação:
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] - ~4€ver

[Agradecimentos] - Dudaxan

Estrutura de If e Then

    Data/hora atual: 8/23/2017, 17:24