Změny

Skočit na navigaci Skočit na vyhledávání

GetFTime

Přidáno 1 866 bajtů, 2. 10. 2012, 15:22
Založena nová stránka: 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…
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]]


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]]

Navigační menu