界面库

代码解析可能出现的问题

designer/utslsynmemo.tsf

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

funcext/tvclib/uvclthreadworker.tsf

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