t_id
677
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524047830 | 947956 | True | False | Successfully run |
Record count: 1
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.