SetFTime: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Založena nová stránka: Nastaví datum a čas, kdy byl soubor naposledy aktualizován. ;Deklarace procedure SetFTime(var F; Time: Longint); ;Režim :Windows, Reálný, Chráněný ;Poznámk…) |
|||
(Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
Řádek 20: | Řádek 20: | ||
:[[UnpackTime]] | :[[UnpackTime]] | ||
+ | |||
+ | :[[TDateTime]] | ||
Aktuální verze z 2. 10. 2012, 21:57
Nastaví datum a čas, kdy byl soubor naposledy aktualizován.
- Deklarace
procedure SetFTime(var F; Time: Longint);
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Chyby hlásí DosError, je možná pouze chyba 6 (Invalid File Handle - neplatné madlo souboru).
- Omezení
- F musí být otevřený.
- Viz také
- GetFTime
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.