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

git-svn-id: trunk@44480 -

packages/fcl-registry/src/registry.pp

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

packages/fcl-registry/src/winreg.inc

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