Pārlūkot izejas kodu

+ length(<variant>);

git-svn-id: trunk@1154 -
florian 20 gadi atpakaļ
vecāks
revīzija
77db0e5185
1 mainītis faili ar 5 papildinājumiem un 0 dzēšanām
  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 }