浏览代码

+ length(<variant>);

git-svn-id: trunk@1154 -
florian 20 年之前
父节点
当前提交
77db0e5185
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      compiler/ninl.pas

+ 5 - 0
compiler/ninl.pas

@@ -1441,6 +1441,11 @@ implementation
                   set_varstate(left,vs_used,[vsf_must_be_valid]);
 
                   case left.resulttype.def.deftype of
+                    variantdef:
+                      begin
+                        inserttypeconv(left,cansistringtype);
+                      end;
+
                     stringdef :
                       begin
                         { we don't need string convertions here }