paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@16525 -
This commit is contained in:
sergei 2010-12-09 01:27:09 +00:00
parent ddfb032913
commit 4e3cedb492
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/varutilh.inc
View File

@ -28,7 +28,7 @@ function VariantChangeTypeEx(var VargDest: TVarData; const VargSrc: TVarData; LC
function VariantClear(var Varg: TVarData): HRESULT; stdcall; function VariantClear(var Varg: TVarData): HRESULT; stdcall;
function VariantCopy(var VargDest: TVarData; const VargSrc: TVarData): HRESULT; stdcall; function VariantCopy(var VargDest: TVarData; const VargSrc: TVarData): HRESULT; stdcall;
function VariantCopyInd(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 } { Variant array functions }

6
rtl/objpas/varutils.inc
View File

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

2
rtl/win/varutils.pp
View File

@ -44,7 +44,7 @@ function VariantChangeTypeEx(var VargDest: TVarData; const VargSrc: TVarData; LC
function VariantClear(var Varg: TVarData): HRESULT; stdcall;external oleaut; function VariantClear(var Varg: TVarData): HRESULT; stdcall;external oleaut;
function VariantCopy(var VargDest: TVarData; const VargSrc: 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 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 } { Variant array functions }