From 81b778f5556a3b26bec2a8fdae7ea1a49b83ab96 Mon Sep 17 00:00:00 2001 From: michael Date: Fri, 1 Jan 2016 23:23:42 +0000 Subject: [PATCH] * Correction on previous patch git-svn-id: trunk@32827 - --- packages/winunits-base/src/typelib.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/winunits-base/src/typelib.pas b/packages/winunits-base/src/typelib.pas index 8c3753ee5d..805f1ffe6e 100644 --- a/packages/winunits-base/src/typelib.pas +++ b/packages/winunits-base/src/typelib.pas @@ -822,7 +822,7 @@ begin end; end; tmp:=' procedure Set_%s(%s %s:%s); %s;'#13#10; - if not (bParamByRef or (sType='OleVariant')) then + if not bParamByRef then Modifier:='const' else Modifier:='var';