tsl

更新动态库

designer/utslsynmemo.tsf

@@ -1659,9 +1659,8 @@ type TTsfFileParser = class //
         end else 
         begin 
             s := d["value"];
-            if not(s and ifstring(s)) then return rt ;  
+            if not(s and ifstring(s)) then return rt ; 
-            if length(s)=8 and  lowercase(s)="function" then return rt;            
+            if errtslcode(s) then return rt;           
-            if length(s)=9 and  lowercase(s)="procedure" then return rt;            
             r := tsl_tokenizeex_2_(s,1);
             if not( r and  ifarray(r)) then return rt;
             cls := array();
@@ -1963,7 +1962,12 @@ type TTsfFileParser = class //
                 begin
                     if rdd then 
                     begin 
-                        r := tsl_tokenizeex_2_(rdd,1);
+                        if errtslcode(rdd) then 
+                        begin 
+                            r := array();
+                            rdd := "";
+                        end else            
+                            r := tsl_tokenizeex_2_(rdd,1);
                     end else 
                     begin
                         r := array();
@@ -2078,6 +2082,10 @@ begin
     begin 
         exportfile(ftstream(),"",f,c);
     end 
-
+end 
+function errtslcode(s); //判断 function procedure结尾搞不定
+begin
+    return 0;
+    return 0;
 end 
 end.