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

* Windows RTL: Simplify SysUtils.GetLocalTime(). TSystemTime type for these targets matches one defined in Windows unit, so WinAPI function result can be used directly. Resolves #18346.

Browse Source 
git-svn-id: trunk@16665 -
This commit is contained in:
sergei 2010-12-30 20:40:47 +00:00
parent 2222f2c44b
commit 15e1abddf7
2 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win/sysutils.pp
View File

@ -579,17 +579,8 @@ end;
Procedure GetLocalTime(var SystemTime: TSystemTime);
Var
Syst : Windows.TSystemtime;
begin
windows.Getlocaltime(@syst);
SystemTime.year:=syst.wYear;
SystemTime.month:=syst.wMonth;
SystemTime.day:=syst.wDay;
SystemTime.hour:=syst.wHour;
SystemTime.minute:=syst.wMinute;
SystemTime.second:=syst.wSecond;
SystemTime.millisecond:=syst.wMilliSeconds;
windows.Getlocaltime(SystemTime);
end;

11
rtl/wince/sysutils.pp
View File

@ -458,17 +458,8 @@ end;
Procedure GetLocalTime(var SystemTime: TSystemTime);
Var
Syst : Windows.TSystemtime;
begin
windows.Getlocaltime(@syst);
SystemTime.year:=syst.wYear;
SystemTime.month:=syst.wMonth;
SystemTime.day:=syst.wDay;
SystemTime.hour:=syst.wHour;
SystemTime.minute:=syst.wMinute;
SystemTime.second:=syst.wSecond;
SystemTime.millisecond:=syst.wMilliSeconds;
windows.Getlocaltime(SystemTime);
end;