[Back to FILES SWAG index] [Back to Main SWAG index] [Original]

    { Example For GetFTime, PackTime,
      SetFTime, and UnpackTime }

    Uses Dos;
    Var
      f: Text;
      h, m, s, hund : Word; { For GetTime}
      ftime : LongInt; { For Get/SetFTime}
      dt : DateTime; { For Pack/UnpackTime}
    Function LeadingZero(w : Word) : String;
    Var
      s : String;
    begin
      Str(w:0,s);
      if Length(s) = 1 then
        s := '0' + s;
      LeadingZero := s;
    end;
    begin
      Assign(f, 'RECURSEP.PAS');
      GetTime(h,m,s,hund);
      ReWrite(f); { Create new File }
      GetFTime(f,ftime); { Get creation time }
      WriteLn('File created at ',LeadingZero(h),
              ':',LeadingZero(m),':',
              LeadingZero(s));
      UnpackTime(ftime,dt);
      With dt do
        begin
          WriteLn('File timestamp is ',
                  LeadingZero(hour),':',
                  LeadingZero(min),':',
                  LeadingZero(sec));
          hour := 0;
          min := 1;
          sec := 0;
          PackTime(dt,ftime);
          WriteLn('Setting File timestamp ',
                  'to one minute after midnight');
          Reset(f); { Reopen File For reading }
          { (otherwise, close will update time) }
          SetFTime(f,ftime);
        end;
      Close(f);   { Close File }
    end.

[Back to FILES SWAG index] [Back to Main SWAG index] [Original]