paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 06:21:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wince has to reuse also TSystemTime from the Windows unit inside the sysutils unit

Browse Source 
git-svn-id: trunk@3472 -
This commit is contained in:
florian 2006-05-10 20:21:56 +00:00
parent 8bd674af24
commit 0bbbfd23e5
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/datih.inc
View File

@ -78,13 +78,13 @@ const
}
type
{$if not(defined(win32)) and not(defined(win64)) }
{$ifndef windows}
{ Win32 reuses the struct from the Windows unit }
TSystemTime = record
Year, Month, Day: word;
Hour, Minute, Second, MilliSecond: word;
end ;
{$endif win32}
{$endif windows}
TTimeStamp = record
Time: integer; { Number of milliseconds since midnight }

2
rtl/wince/sysutils.pp
View File

@ -33,6 +33,8 @@ uses
{$i sysutilh.inc}
type
TSystemTime = Windows.TSystemTime;
EWinCEError = class(Exception)
public
ErrorCode : DWORD;