UnpackTime
Verze z 2. 10. 2012, 15:42, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Uses DOS)
Konvertuje Longint do záznamu.
- Deklarace
procedure UnpackTime(Time: Longint; var DT: TDateTime);
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Převede čtyřbajtovou pakovanou hodnotu datumu a času typu Longint, vracenou rutinami GetFTime, FindFirst a FindNext, na nepakovaný záznam typu [[[DateTime]].
- Viz také
- DateTime
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.