paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed tagVariant.pbstrVal to ^WideString and added a comment about impossibility of having managed members in this record (Mantis #21075).

Browse Source 
git-svn-id: trunk@21042 -
This commit is contained in:
sergei 2012-04-25 18:14:47 +00:00
parent 6b93cbcbea
commit 5b09fa8a8c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1416,6 +1416,7 @@ TYPE
VT_ERROR: (scode: HResult);
VT_CY: (cyVal: Currency);
VT_DATE: (date: TOleDate);
{ managed types cannot be used in a variant record like this one. }
VT_BSTR: (bstrVal: POleStr{WideString});
VT_UNKNOWN: (unkVal: Pointer{IUnknown});
VT_DISPATCH: (dispVal: Pointer{IDispatch});
@ -1434,7 +1435,7 @@ TYPE
VT_BYREF or VT_ERROR: (pscode: ^HResult);
VT_BYREF or VT_CY: (pcyVal: PCurrency);
VT_BYREF or VT_DATE: (pdate: POleDate);
VT_BYREF or VT_BSTR: (pbstrVal: PPOleStr);
VT_BYREF or VT_BSTR: (pbstrVal: ^WideString);
VT_BYREF or VT_UNKNOWN: (punkVal: ^IUnknown);
VT_BYREF or VT_DISPATCH: (pdispVal: ^IDispatch);
VT_BYREF or VT_ARRAY: (pparray: PPSafeArray);