paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix IENumVariant interface to be more delphi compatible

Browse Source 
git-svn-id: trunk@26863 -
This commit is contained in:
michael 2014-02-24 09:56:24 +00:00
parent 5848e5e33a
commit 4dfb88d11f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winunits-base/src/activex.pp
View File

@ -3108,9 +3108,9 @@ TYPE
IEnumVARIANT = Interface (IUnknown) IEnumVARIANT = Interface (IUnknown)
['{00020404-0000-0000-C000-000000000046}'] ['{00020404-0000-0000-C000-000000000046}']
{$ifndef Call_as} {$ifndef Call_as}
Function Next(celt: ULONG; OUT rgVar: VARIANT; pCeltFetched: pULONG=nil):HResult;StdCall; Function Next(celt: ULONG; OUT rgVar: OLEVARIANT; out pCeltFetched: ULONG):HResult;StdCall;
{$else} {$else}
Function Next(celt: ULONG; OUT rgVar: VARIANT; pCeltFetched: pULONG=nil):HResult;StdCall; Function Next(celt: ULONG; OUT rgVar: OLEVARIANT; pCeltFetched: pULONG=nil):HResult;StdCall;
{$endif} {$endif}
Function Skip(celt: ULONG):HResult;StdCall; Function Skip(celt: ULONG):HResult;StdCall;
Function Reset():HResult;StdCall; Function Reset():HResult;StdCall;