界面库

修正手误

funcext/tvclib/tslvcl.tsf

@@ -4749,7 +4749,7 @@ type tworkerctl =class(tcomponent) //
     function setOnError(f);
     begin
         FOnError := f;
-        if fworker then fworker.FOnError := f; 
+        if fworker then fworker.OnError := f; 
     end 
     function Setscript(s);
     begin

funcext/tvclib/utslvclauxiliary.tsf

@@ -1732,16 +1732,18 @@ type TNode = class() //
         return FItems.Count;
     end
 end
-type TTire = class
+type TTire = class()
 {**
     @explan(说明) tire树
 **}
-    type TTireNode = class
+    type TTireNode = class()
+        [weakref] parent;
         FChar;
         FSub;
         FEnd;
         Ficase;
         _tag;
+        _tag2;
         function Create(v);
         begin
             FChar := v;  
@@ -1758,7 +1760,8 @@ type TTire = class
             begin
                 vsub := new  TTireNode(v0);
                 vsub.Ficase := Ficase;
-                FSub[v0] := vsub;   
+                FSub[v0] := vsub;  
+                vsub.Parent := self; 
             end 
             ls := length(s);
             if ls>1 then