paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 03:49:05 +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 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 }

6
rtl/objpas/varutils.inc
View File

@ -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;

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 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 }