tsl

更新新功能

designer/udesignerproject.tsf

@@ -1255,6 +1255,7 @@ type %s=class(%s)
         ci := self.classinfo();   //将成员变量赋值为nil避免循环引用
         for i,v in ci["members"] do 
         begin
+            if v["const"] then continue;
             if v["static"] then continue;
             invoke(self,v["name"],nil);
         end 

designer/utslvclsyntaxparser.tsf

@@ -408,15 +408,20 @@ type tslparser = class(tslparserbase) //
                 break;
             end 
             if tk="="  and tp=TT_SYM then
-            begin
-                ctoken(tk,tp,pos);  
-                if ifnil(tk) then break;
-                if tp=TT_SYM then 
-                begin
-                    bpos();
-                    continue;
+            begin  
+                i_t := "";              
+                while true do 
+                begin 
+                    ctoken(tk,tp,pos);  
+                    if ifnil(tk) then break;
+                    if tp=TT_SYM and tk=";" then 
+                    begin
+                        bpos(); 
+                        break;   
+                    end 
+                    i_t+=tk;
                 end 
-                r[rcount]["init"] := tk;  
+                r[rcount]["init"] := i_t;
                 continue;
             end  
             if tk=";" then