Data do arquivo
17/08/2004
0
Comparar a data de arquivo com a do sistema e jogar para um edit a data?
Paulo
Curtir tópico
+ 0
Responder
Posts
17/08/2004
Rômulo Barros
:? :? :? :? :? :?
:( :( :( :(
procedure TForm1.Button1Click(Sender: TObject); Var DataArquivo : TDateTime; begin DataArquivo := FileDateToDateTime(FileAge(´C:\teste.txt´)); If(DataArquivo = Date)Then {...} Else If(DataArquivo < Date)Then {..} Else ShowMessage(´Data do arquivo é maior q a data do sistema´); end; end.
:( :( :( :(
Responder
Clique aqui para fazer login e interagir na Comunidade :)