Ver código fonte

* Correct check

Michaël Van Canneyt 4 meses atrás
pai
commit
36e65b3464
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/ncon.pas

+ 1 - 1
compiler/ncon.pas

@@ -1242,7 +1242,7 @@ implementation
 
 
     function tstringconstnode.asconstpchar: pchar;
     function tstringconstnode.asconstpchar: pchar;
     begin
     begin
-      if len>0 then
+      if length(valueas)>0 then
         Result:=@valueas[0]
         Result:=@valueas[0]
       else
       else
         Result:=@cEmptyString;
         Result:=@cEmptyString;