Ir para conteúdo
  • Cadastre-se

dev botao

Error is not valid Date


Ver Solução Respondido por Valtran Silva,
  • Este tópico foi criado há 1949 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

NomeDoArq := 'C:\1234\TV.txt';
  AssignFile(Arquivo, NomeDoArq);

  if FileExists(NomeDoArq) then
        Append(arquivo) { se existir, apenas adiciona linhas }
  else
        ReWrite(arquivo); { cria um novo se não existir }
  try
        WriteLn(arquivo,datetostr(now)); // data atual do micro
  finally
        CloseFile(arquivo) ;
  end;

       if Strtodate(linha) > now then // 
          begin
          Showmessage('Data do computador errada, acerte a data para que funcione o programa "Assistir TV Online!!');
           Application.Terminate;

Link para o comentário
Compartilhar em outros sites

Bom Dia. Opa Desculpa, Tipo ele vai verificar se o arquivo na pasta C:// Tv Existi ai ele vai criar. Se já existir ele só vai adicionar linhas. No Caso, ele adiciona a Data Atual Do Pc, Que esta armazenado na variavel arquivo.

 

 WriteLn(arquivo,datetostr(now)); // data atual do micro  o erro deve que e nessa linha aqui, mais não sei como converter 

Arquivo esta declaro como TexFile

Editado por Valtran Silva
Link para o comentário
Compartilhar em outros sites

  • Membros
36 minutos atrás, Valtran Silva disse:

NomeDoArq := 'C:\1234\TV.txt';
  AssignFile(Arquivo, NomeDoArq);

  if FileExists(NomeDoArq) then
        Append(arquivo) { se existir, apenas adiciona linhas }
  else
        ReWrite(arquivo); { cria um novo se não existir }
  try
        WriteLn(arquivo,datetostr(now)); // data atual do micro
  finally
        CloseFile(arquivo) ;
  end;

       if Strtodate(linha) > now then // 
          begin
          Showmessage('Data do computador errada, acerte a data para que funcione o programa "Assistir TV Online!!');
           Application.Terminate;

Em qual momento você passa algum valor para a varíavel "linha" ?

Nesse seu código ela em nenhum momento recebe algum valor.

Equipe ACBr Sérgio Assunção
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

[email protected]

Link para o comentário
Compartilhar em outros sites

Posso estar Equivocado nessa lógica desse código!

Mais alguém pode me ajudar? Tipo  quero que ele crie o Arquivo TXT dentro da pasta especificada, caso não tenha o arquivo.

Mais guarde a Data atual  Do Pc, lá dentro. A Lógica e que quando o programa for instalado em qualquer computador, ele armazene a data do pc, no arquivo txt

Editado por Valtran Silva
Link para o comentário
Compartilhar em outros sites

  • Membros
8 minutos atrás, Valtran Silva disse:

Posso estar Equivocado nessa lógica desse código!

Mais alguém pode me ajudar? Tipo  quero que ele crie o Arquivo TXT dentro da pasta especificada, caso não tenha o arquivo.

Mais guarde a Data atual  Do Pc, lá dentro. A Lógica e que quando o programa for instalado em qualquer computador, ele armazene a data do pc, no arquivo txt

O seu problema está no codigo abaixo...

 

if Strtodate(linha) > now then // 
begin
  Showmessage('Data do computador errada, acerte a data para que funcione o programa "Assistir TV Online!!');
  Application.Terminate;


não se tem um valor armazenado na variável linha. Com isso o StrToDate para um valor em branco vai acarretar o erro.

  • Curtir 1
Equipe ACBr Sérgio Assunção
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

[email protected]

Link para o comentário
Compartilhar em outros sites

  • Solution

 NomeDoArq := 'C:\1234\TV.txt'; // Arquivo Na Pasta escolhida
  AssignFile(Arquivo,NomeDoArq);
  //reset(Arquivo);
  //Readln(Arquivo,linha);
  /////////////////////////////////////////////

    if fileExists(NomeDoArq) then
     begin
       Append(Arquivo) // se existir, apenas adiciona linhas }
       end

       else
       RewRite(Arquivo);  // cria um novo se não existir }
       try
         Writeln(Arquivo, DateToStr(Now)); // data atual do micro
       finally
       CloseFile(Arquivo);
       end;

 

Código correto agora

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1949 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.