1 578
editací
Změny
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…
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]]
:[[PackTime]]
:[[UnpackTime]]
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 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]]
:[[PackTime]]
:[[UnpackTime]]
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]]