Error is not valid Date

[Valtran Silva]

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;

[Amarildo de Matos]

bom dia. voce colocou os comandos, mas nao disse o que realmente deseja, ?

[Valtran Silva]

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 27 Novembro, 2018 por Valtran Silva

[Amarildo de Matos]

faça o seguinte: mostre na tela , como ele esta retornando.... para saber o que temos de fazer.

[Valtran Silva]

[Amarildo de Matos]

eu acho que voce deve esta pegando o dado errado.

Edit1.Text := DateToStr(Date());

em vez de now, nao é date?

 

 

[Sérgio Assunção]

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.

[Valtran Silva]

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 27 Novembro, 2018 por Valtran Silva

[Sérgio Assunção]

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.

[Valtran Silva]

Assim. Como posso resolver isso sérgio ?

[Amarildo de Matos]

acredito, valtran, que voce nao esta preechendo essa variavel.. faça isso antes da pergunta.

[Valtran Silva]

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

 

e essa parte do código

[Valtran Silva]

 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

 

[Valtran Silva]

De tanto quebrar a cabeça aqui consegui resolver, rs... Obrigado galera pela ajuda.

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.