Test suite results for test file webtbs/tw0719.pp

Test run data :

Test file "webtbs/tw0719.pp" information:

t_id 677
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 872907.

Source:

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.

Link to SVN view of webtbs/tw0719.pp source.