Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
uses
sysutils;
var
S : string;
SR : TSearchRec;
r : longint;
begin
r:=FindFirst('*.*',faAnyFile,SR);
while r=0 do
begin
r:=FileAge(SR.Name);
if r<>-1 then
begin
S:=DateTimeToStr(FileDateToDateTime(r));
Writeln(SR.Name,' has Date ',S);
end;
r:=FindNext(SR);
end;
FindClose(SR);
end.