paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 11:27:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ basic variant<->intf conversion

Browse Source
This commit is contained in:
florian 2005-02-07 21:52:08 +00:00
parent 72f65a379f
commit 10f7de490e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/varutils.inc
View File

@ -75,7 +75,7 @@ begin
WideString(Pointer(VOleStr)):='';
varDispatch,
varUnknown:
NoInterfaces;
iinterface(v.vunknown):=nil;
else
exit(VAR_BADVARTYPE)
end;
@ -711,7 +711,10 @@ end;
{$endif HASVARIANT}
{
$Log$
Revision 1.15 2005-01-16 16:56:32 florian
Revision 1.16 2005-02-07 21:52:08 florian
+ basic variant<->intf conversion
Revision 1.15 2005/01/16 16:56:32 florian
+ some missing word handling added
Revision 1.14 2005/01/16 16:15:30 florian