paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 13:59:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug ID #25110, patch from ocean

Browse Source 
git-svn-id: trunk@32821 -
This commit is contained in:
michael 2016-01-01 16:45:07 +00:00
parent 6b3b3d5c0c
commit ede4bac345
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/winunits-base/src/typelib.pas
View File

@ -455,7 +455,7 @@ var
TIref: ITypeInfo;
BstrName,BstrNameRef,BstrDocString : WideString;
s,sl,sPropDispIntfc,sType,sConv,sFunc,sPar,sVarName,sMethodName,
sPropParam,sPropParam2,sPropParam3:string;
sPropParam,sPropParam2,sPropParam3,tmp: string;
sEventSignatures,sEventFunctions,sEventProperties,sEventImplementations:string;
i,j,k:integer;
FD: lpFUNCDESC;
@ -808,10 +808,14 @@ begin
sParam:=sPropParam;
sDefault:=sl;
end;
if bPropHasParam then
s:=s+format(' procedure Set_%s(const %s:%s); %s;'#13#10,[sMethodName,sPropParam3,sType,sConv])
if sType='OleVariant' then
tmp:=' procedure Set_%s(%s:%s); %s;'#13#10
else
s:=s+format(' procedure Set_%s(const %s:%s); %s;'#13#10,[sMethodName,sVarName,sType,sConv]);
tmp:=' procedure Set_%s(Const %s:%s); %s;'#13#10;
if bPropHasParam then
s:=s+format(tmp,[sMethodName,sPropParam3,sType,sConv])
else
s:=s+format(tmp,[sMethodName,sVarName,sType,sConv]);
end;
end;
end;