界面库

代码解析可能出现的问题
2022-06-20 10:02:22 +08:00
parent e4128f29a4
commit de192f0fe6
3 changed files with 4 additions and 3 deletions
@@ -1659,10 +1659,11 @@ 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 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;                                        
@@ -98,7 +98,7 @@ type TCustomThreadworker = class()
        if not FThreaders then return ;
        for idx,i in mrows(   FThreaders,1) do 
        begin
-            o := FThreaders[i]; 
+            o := FThreaders[i];             
            if uifeachthreadworkerdata(o.handle,msg,data) then 
            begin
                case msg of