界面库

代码解析可能出现的问题

designer/utslsynmemo.tsf

@@ -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;