Is not a valid date

27/11/2018

0

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;
Valsistemasdelphi

Valsistemasdelphi

Responder

Posts

27/11/2018

Alberto

Qual o conteudo da variavel: Linha ?
Responder

27/11/2018

Valsistemasdelphi

Eu consegui resolver \\O/ o problema. Mais quero agora ajuda nesta parte do código, por que?
Porque eu quero que se o arquivo txt ja esta criado e tem armazenado informação dentro, ele não crie mais nada dentro Entendeu ?
Quero que ele só crie se o Arquivo txt estiver vazio, tem como fazer isso?



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

if not FileExists(NomeDoArq) then
ReWrite(arquivo) { cria um novo se não existir }

else
Append(arquivo) ;// se existir, apenas adiciona linhas 
try
WriteLn(arquivo, datetostr(now)); // data atual do micro
finally
CloseFile(arquivo)
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar