界面库

代码解析可能出现的问题
2022-06-20 10:02:22 +08:00
parent e4128f29a4
commit de192f0fe6
3 changed files with 4 additions and 3 deletions
@@ -1660,9 +1660,10 @@ type TTsfFileParser = class //
        begin 
            s := d["value"];
            if not(s and ifstring(s)) then return rt ;  
+            if length(s)=8 and  lowercase(s)="function" 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();
            ScriptDelBlocks(r["blcks"],str2array(s,"\n"),cls);
            r["blcks"] := cls;