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

* Patch from Serge Anvarov to simplify ReadDate/ReadTime (bug ID 35105)

Browse Source 
git-svn-id: trunk@44480 -
This commit is contained in:
michael 2020-04-01 07:39:14 +00:00
parent 3030ffb9c1
commit aaaca28dcd
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-registry/src/registry.pp
View File

@ -546,9 +546,7 @@ end;
function TRegistry.ReadDate(const Name: UnicodeString): TDateTime; function TRegistry.ReadDate(const Name: UnicodeString): TDateTime;
begin begin
Result:=Default(TDateTime); Result:=Trunc(ReadDateTime(Name));
ReadBinaryData(Name, Result, SizeOf(TDateTime));
Result:=Trunc(Result);
end; end;
function TRegistry.ReadDate(const Name: String): TDateTime; function TRegistry.ReadDate(const Name: String): TDateTime;

2
packages/fcl-registry/src/winreg.inc
View File

@ -423,8 +423,6 @@ Function TRegistry.SysPutData(const Name: UnicodeString; Buffer: Pointer;
Var Var
RegDataType: DWORD; RegDataType: DWORD;
B : Pchar;
S : String;
begin begin
RegDataType:=RegDataWords[RegData]; RegDataType:=RegDataWords[RegData];