Array
(
)

Data do arquivo

Paulo
   - 17 ago 2004

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


Rômulo Barros
   - 17 ago 2004

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


#Código

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.


:( :( :( :(