* VariantInit is a procedure, not a function (according to both MSDN and Delphi docs).

git-svn-id: trunk@16525 -

rtl/objpas/varutilh.inc

@@ -28,7 +28,7 @@ function VariantChangeTypeEx(var VargDest: TVarData; const VargSrc: TVarData; LC
 function VariantClear(var Varg: TVarData): HRESULT; stdcall;
 function VariantCopy(var VargDest: TVarData; const VargSrc: TVarData): HRESULT; stdcall;
 function VariantCopyInd(var VargDest: TVarData;  const VargSrc: TVarData): HRESULT; stdcall;
-function VariantInit(var Varg: TVarData): HRESULT; stdcall;
+procedure VariantInit(var Varg: TVarData); stdcall;
 
 {  Variant array functions }
 

rtl/objpas/varutils.inc

@@ -45,14 +45,13 @@ end;
     Basic variant handling.
   ---------------------------------------------------------------------}
 
-function VariantInit(var Varg: TVarData): HRESULT;stdcall;
+procedure VariantInit(var Varg: TVarData); stdcall;
 begin
   With Varg do
     begin
       FillChar(VBytes, SizeOf(VBytes), 0);
       VType:=varEmpty;
     end;
-  Result:=VAR_OK;
 end;
 
 function VariantClear(var Varg: TVarData): HRESULT;stdcall;
@@ -84,7 +83,8 @@ begin
           exit(VAR_BADVARTYPE)
         end;
     end;
-  Result:=VariantInit(Varg);
+  VariantInit(Varg);
+  Result:=VAR_OK;
 end;
 
 function VariantCopy(var VargDest: TVarData; const VargSrc: TVarData): HRESULT;stdcall;

rtl/win/varutils.pp

@@ -44,7 +44,7 @@ function VariantChangeTypeEx(var VargDest: TVarData; const VargSrc: TVarData; LC
 function VariantClear(var Varg: TVarData): HRESULT; stdcall;external oleaut;
 function VariantCopy(var VargDest: TVarData; const VargSrc: TVarData): HRESULT; stdcall;external oleaut;
 function VariantCopyInd(var VargDest: TVarData;  const VargSrc: TVarData): HRESULT; stdcall;external oleaut;
-function VariantInit(var Varg: TVarData): HRESULT; stdcall;external oleaut;
+procedure VariantInit(var Varg: TVarData); stdcall;external oleaut;
 
 {  Variant array functions }