Is not a valid date

CRUD - Delphi

27/11/2018

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

Curtidas 0

Respostas

Alberto

Alberto

27/11/2018

Qual o conteudo da variavel: Linha ?
GOSTEI 0
Valsistemasdelphi

Valsistemasdelphi

27/11/2018

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)
GOSTEI 0
POSTAR