Is not a valid date
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;
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
Curtidas 0
Respostas
Alberto
27/11/2018
Qual o conteudo da variavel: Linha ?
GOSTEI 0
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)
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