17/08/2004

Data do arquivo

Comparar a data de arquivo com a do sistema e jogar para um edit a data?


Paulo

Respostas

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 Citar