Data do arquivo

Delphi

17/08/2004

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


Paulo

Paulo

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

17/08/2004

:? :? :? :? :? :? 


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.


:( :( :( :(


GOSTEI 0
POSTAR