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

* a AnsiString var parameter is supposed to be dispatched in tagVariant.pbstrVal which is a PWideString, so pass a reference to the ComStr field instead of a copy

Browse Source 
git-svn-id: trunk@47517 -
This commit is contained in:
svenbarth 2020-11-21 20:17:07 +00:00
parent 50deb254e5
commit 9822ff30cf
1 changed files with 1 additions and 1 deletions

2
packages/winunits-base/src/comobj.pp
View File

@ -1231,7 +1231,7 @@ HKCR
StringMap[NextString].ComStr:=StringToOleStr(PString(Params^)^);
StringMap[NextString].PasStr:=PString(Params^);
Arguments[i].VType:=varOleStr or varByRef;
Arguments[i].VPointer:=StringMap[NextString].ComStr;
Arguments[i].VPointer:=@StringMap[NextString].ComStr;
inc(NextString);
inc(PPointer(Params));
end;