GetFTime

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Vrací datum a čas posledního zápisu do souboru.

Deklarace
procedure GetFTime(var F; var Time: Longint);
Režim
Windows, Reálný, Chráněný
Poznámky
F je proměnná typu soubor (textový soubor, typový soubor nebo soubor bez typu), která byla přiřazena a otevřena.
Čas vrácený v parametru Time lze rozpakovat zavoláním procedury UnpackTime.


Viz také
PackTime
SetFTime
UnpackTime
TDateTime


Vzorový příklad

{ GetFTime.PAS }
{ Vzorový příklad pro GetFTime, PackTime, SetFTime a UnpackTime. }
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses WinDos;
 var
   f: text;
   h, m, s, hund : Word; { pro GetTime}
   ftime : Longint; { pro Get/SetFTime}
   dt : DateTime; { pro Pack/UnpackTime }
                  { pro WinDos použijte TDateTime }
 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, 'TEST.TXT');
   GetTime(h,m,s,hund);
   Rewrite(f); { Vytvoří nový soubor }
   GetFTime(f,ftime); { Dej čas }
   WriteLn('Soubor vytvořen v ',LeadingZero(h), ':',LeadingZero(m),':', LeadingZero(s));
   UnpackTime(ftime,dt);
   with dt do
     begin
       WriteLn('Časové razítko souboru je ',
               LeadingZero(hour),':',
               LeadingZero(min),':',
               LeadingZero(sec));
       hour := 0;
       min := 1;
       sec := 0;
       PackTime(dt,ftime);
       WriteLn('Nastavení časového razítka ', 'na jednu minutu po půlnoci');
       Reset(f); { Nové otevření souboru pro čteni }
       { Jinak, zavření nastaví nový čas }
       SetFTime(f,ftime);
     end;
   Close(f);   { Zavři soubor }
 end.