1 578
editací
Změny
Založena nová stránka: 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…
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]]
:[[GetFTime]]
:[[PackTime]]
:[[SetFTime]]
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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Datové a časové procedury]]
;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]]
:[[GetFTime]]
:[[PackTime]]
:[[SetFTime]]
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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Datové a časové procedury]]