|
@@ -75,7 +75,7 @@ begin
|
|
|
WideString(Pointer(VOleStr)):='';
|
|
WideString(Pointer(VOleStr)):='';
|
|
|
varDispatch,
|
|
varDispatch,
|
|
|
varUnknown:
|
|
varUnknown:
|
|
|
- iinterface(v.vunknown):=nil;
|
|
|
|
|
|
|
+ iinterface(vunknown):=nil;
|
|
|
else
|
|
else
|
|
|
exit(VAR_BADVARTYPE)
|
|
exit(VAR_BADVARTYPE)
|
|
|
end;
|
|
end;
|
|
@@ -711,7 +711,10 @@ end;
|
|
|
{$endif HASVARIANT}
|
|
{$endif HASVARIANT}
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.16 2005-02-07 21:52:08 florian
|
|
|
|
|
|
|
+ Revision 1.17 2005-02-08 07:25:26 marco
|
|
|
|
|
+ * patch from Peter
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.16 2005/02/07 21:52:08 florian
|
|
|
+ basic variant<->intf conversion
|
|
+ basic variant<->intf conversion
|
|
|
|
|
|
|
|
Revision 1.15 2005/01/16 16:56:32 florian
|
|
Revision 1.15 2005/01/16 16:56:32 florian
|
marco