Is not a valid date

27/11/2018

16

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

Posts

27/11/2018

Alberto

Qual o conteudo da variavel: Linha ?
Responder
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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar