- 4.24.2.35 -
Standard Units
Dos Unit
Dos Unit Procedures and FunctionsUnpackTime procedure
Targets: MS-DOS only
Dos Unit, WinDos Unit
Converts a Longint to a record.
Declaration:
procedure UnpackTime(Time: Longint;
var DateTime: TDateTime);
Remarks:
UnPackTime can be used in conjunction with
GetTime,
FindFirst, and
FindNext.
These routines return a file's four byte packed date and time stamp.
To pack a DateTime record, use
PackTime.
Example:
uses
Dos;
var
Fi : Text;
Time: Longint;
DT : DateTime;
begin
Assign(Fi,'USER.DOC');
Reset(Fi);
GetFTime(Fi,Time);
UnPackTime(Time,DT);
WriteLn('Year: ',DT.Year);
WriteLn('Month: ',DT.Month);
WriteLn('Date: ',DT.Day);
Close(Fi);
end.
|
|
|
SwapVectors procedure |
Table of Content |
DOSCall Unit |
- 4.24.2.35 -