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.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    Sistema de Serial

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    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


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/11/2016, 08:51