paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 20:13:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* For win32 use the tsystemtime from the windows unit, that is changed

Browse Source 
to a variant record with compatibile field names
This commit is contained in:
peter 2002-10-02 21:04:06 +00:00
parent 80b078b37f
commit 2ac16d265f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/datih.inc
View File

@ -64,10 +64,13 @@ const
}
type
{$ifndef win32}
{ Win32 reuses the struct from the Windows unit }
TSystemTime = record
Year, Month, Day: word;
Hour, Minute, Second, MilliSecond: word;
end ;
{$endif win32}
TTimeStamp = record
Time: integer; { Number of milliseconds since midnight }
@ -106,7 +109,11 @@ Procedure GetLocalTime(var SystemTime: TSystemTime);
{
$Log$
Revision 1.5 2002-09-07 16:01:22 peter
Revision 1.6 2002-10-02 21:04:06 peter
* For win32 use the tsystemtime from the windows unit, that is changed
to a variant record with compatibile field names
Revision 1.5 2002/09/07 16:01:22 peter
* old logs removed and tabs fixed
}